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Summary of Changes 


Summary of Changes 
for DL/I Version 1.7 
LY12-5016-7 


This version of DL/I provides system changes and functional enhancements such 
as: 


Interactive Utility Generation 
This provides an interactive facility to assist with the generation of utility job 
streams. 


IMF Enhancements 
The Interactive Macro Facility (IMF) has been enhanced to support the DL/I 
Documentation Aid facility. 


( Documentation Aid 
This provides an ease-of-use facility to document DL/I definitions that can be 
accessed directly by ISQL. 


IMF Adaptation to ISPF 
The Interactive Mactor Facility (IMF) now runs on the Interactive System 
Productivity Facility (ISPF) program product, 5668-960. 


a Variable Length Index Source Segment 
( ' This allows an Index Source Segment of a DL/I secondary index to be variable in 
a length. 


Utilities Operational Improvements 

Various modifications have been made to the DL/I utilities to permit tape rewind 
options, omission of partition dump, suppression of informational messages to 
SYSLOG, selectable creation of secondary indexes, automatic open of WORKFIL, 
and change accumulation data base specification. 


aa HLPI Support of Boolean Operations 
( | The Boolean AND and OR operators can now be used with the WHERE clause. 


MPS Restart | 
MPS batch environment jobs can be restarted after a failure. This supports the use 
of VSE Checkpoint/Restart with the DL/I Checkpoint. 


Key Feedback 
KEYFEEDBACK and FEEDBACKLEN can be specified with GET commands to 
retrieve the key feedback area form the PCB. 


Online Initialization Messages 

Messages have been added to provide status information during online 
initialization. These messages include information concerning DL/I logging status, 
DL/I version currently being run, and the program isolation status. 
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Summary of Changes 
DL/I Version 1.6 
LY12-5016-6 


This version of DL/I provides system changes and functional enhancements such 
as: 


Limited Data Sharing (Read Only) 

This function supports sharing of data bases between DL/I subsystems in one host 
or across hosts. One subsystem with update capability and multiple read-only 
subsystems can execute concurrently. This function does not guarantee data 
consistency for the read-only subsystem. 


MPS Under Interactive Computing and Control Facility (ICCF) 
DL/I MPS allows multiple MPS batch jobs to run in a single VSE partition. 


Boolean Qualification Statements 

Boolean logic qualification decreases the application program logic necessary for 
complex data retrieval. The user specifies multiple qualification statements to 
perform Boolean logic qualification for each segment. Boolean AND and OR 
operators logically relate the qualification statements. 


ACCESS Macro 
The new ACCESS macro allows the user to specify on one statement all of the 
necessary parameters to define an access point to an HD data base. The ACCESS 


macro automatically generates the definition of any required index data base 
DBDs. | 


Selective Unload 

With selective unload, the user can reformat data using Field Level Sensitivity and 
Segment Sensitivity. The user can also add new fields for an application program 
and move a subset of a data base to another location for faster processing. 


Current Position Trace Entry Addition 

This function adds two fields (SDBORGN and SDBPTDS) to the current position 
trace entry. These fields specify the data base organization and physical pointers 
for the segment. 


DL/I Trace Print Utility Improvement 

This enhancement provides a means of selecting which trace entries print from a 
file created by DL/I Trace with OUTPUT=CICS. This function reduces the 
amount of output generated by the Trace Print Utility. 


Rewind Option for Reorganization Utilities 

This support adds an option to the HISAM and HD reorganization unload and 
reload utilities to allow the user to not rewind input and output tapes, or to select 
rewind only without having the tapes unloaded. This enables the user to reorganize 
multiple data bases without having to mount a new tape for each data base 
reorganized. 


Separate Index Reorganization 
With this function, the user can now reorganize an index data base separately by 
using the HISAM unload and reload utilities. 
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Partial Data Base Reorganization Utility 

This utility reorganizes a user-selected range of HIDAM or HDAM data base 
records into a designated target area within a data base. This minimizes the time a 
data base is offline for reorganization. 


Run and Buffer Statistics 

This facility reports statistics for certain run and buffer events that are currently 
collected by DL/I, but not formatted or displayed. The data base administrator or 
system programmer uses the statistics in selecting parameters for system tuning. . 


Extended Remote PSB 

This support enables CICS/VS applications to process both local and remote DL/I 
data bases within the same CICS/VS logical unit.of work. To application 
programs, a concatination of PCBs from local and remote PSBs appear as a single 
PSB containing views of both local and remote data bases. 


Summary of Changes 
DL/I Version 1.5 
LY12-5016-5 


This version of DL/I provides system changes and functional enhancements such 
as: 


Field Level Sensitivity 

This function makes it possible for the user to specify only those fields in the 
physical definition of a given segment that are to be included in his application’s 
view of that segment, while remaining insensitive to the other fields in the segment. 


Extended Logical Relationships 

The restriction of only one logical relationship per logical path has been removed. 
The user may now define as many logical relationships as he needs to satisfy his 
requirements. 


Unique Segment Support 7 
It is possible for the user to specify that only one occurrence of a particular 
segment type is allowed under a particular parent. 


Selective Log Print 


It is possible for the user to selectively print data from the log, using the log print 
utility, by specifying a DBD name, CICS task ID, or relative block number. 
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Preface 





This manual is to be used with the program listings for DL/I DOS/VS. It discusses 
the internai operation of the DL/I system as an application program under 
DOS/VS. It is intended for use by persons involved in program maintenance and 
by system programmers who are altering the program design. | 


DL/I DOS/VS is a data management control system that assists the user in 
creating, accessing, and maintaining large common data bases. In conjunction with 
the Customer Information Control System (CICS/VS), DL/I DOS/VS can be 
used in an online teleprocessing environment. 


Readers of this manual must be thoroughly familar with the use of DOS/VS, and 
of CICS/VS, if DL/I DOS/VS is to be used in the online or multiple partition 
support (MPS) environment. 


Because DL/I DOS/VS is a functional subset of the IBM Information | fo 
Management System/ Virtual Storage (IMS/VS), some specific IMS or OS terms Y J 
are used in this manual. These terms are used to allow easy reference to the = 
documentation of the related systems. 


This manual is divided into seven sections. 


“Section 1: Introduction:” Summarizes DL/I DOS/VS giving general information 
about the purpose of system control modules, DL/I facility modules, MPS modules, 
and utility modules. | 7 


‘Section 2: Method of Operation:” Contains HIPO diagrams that describe the — 
DL/I modules. The diagrams include cross-references to labels in the program 
listings. See Data Language/I Disk Operating System/Virtual Storage (DL/I 
DOS/VS) Logic Manual, Volume 2 LY24-5215. 





“Section 3: Program Organization:”’ This section provides descriptive information 
about the DL/I modules and major routines. 3 


“Section 4: Directory:’’ Lists DL/I module, entry point, and control section names | 
with cross-references to Section 2: Method of Operation. aa oN 


“Section 5: Data Areas:’’ Describes the data areas used by DL/I. Field and flag 
names for each data area are also listed alphabetically. 


“Section 6: Diagnostic Aids:’’ Gives information that may be helpful in locating 
specific program listings. 


‘Section 7: Appendixes:”’ Contains information about LLC/CC in DL/I, DBD 
generation, PSB generation and DL/I macros. 


An index is also included. 


Related Publications 


¢ DL/I DOS/VS General Information Manual, GH20-1246 

¢ DL/I DOS/VS Application Programming: CALL and RODLI Interfaces, 
SH12-5411 

¢« DL/I DOS/VS Data Base Administration, SH24-5011 





vi DL/IDOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 


© DL/I DOS/VS Resource Definition and Utilities, SH24-5021 
gts: ¢ DL/I DOS/VS Interactive Resource Definition and Utilities, SH24-5029 

( ¢« DL/I DOS/VS Recovery/Restart Guide, SH24-5030 

¢ DL/I DOS/VS Application Programming: High Level Programming Interface, 
SH24-5009 

e DL/I DOS/VS Messages and Codes, SH12-5414 
« DL/I DOS/VS Guide for New Users, SH24-5001 

DL/I DOS/VS Diagnostic Guide, SH24-5002 

«© DL/I DOS/VS Logic Manual, Volume 2, LY24-5215 


For VSE and VSE/VSAM messages and return codes: 


« VSE/Advanced Functions Messages and Codes, SC33-6098 

¢ VSE/Advanced Functions Application Programming: User’s Guide, SC24-5210 
e VSE/Advanced Functions Application Programming: Reference, SC24-5211 

e Using VSE/VSAM Commands and Macros, SC24-5144 

e VSE/VSAM Messages and Codes, SC24-5146 


( : Users employing DL/I DOS/VS in an online environment should have access to 
— the following CICS/VS publications: 


¢ CICS/DOS/VS Installation and Operations Guide, SC33-0070 
© CICS/VS Customization Guide, SC33-0131 | 
¢ CICS/VS Performance Guide, SC33-0134 
« CICS/VS Resource Definition Guide, SC33-0149 
e CICS/VS Application Prograriamer’s Reference Manual (Macro Level), 
SC33-0079 
( © CICS/VS System/Application Design Guide, SC33-0068 
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Section 1. Introduction 


DL/I Batch System 


Data Language/I Disk Operating System/Virtual Storage (DL/I DOS/VS, _ 
hereafter referred to as DL/I) is a data management control system that assists the 
user in creating, accessing, and maintaining large common data bases. In 
conjunction with the Customer Information Control System (CICS/DOS/VS), 
DL/I can be used in an online teleprocessing environment. Also in conjunction 
with CICS/VS, DL/I provides a centralized data facility, multiple partition support 
(MPS), which controls concurrent access to data bases from multiple batch 
partitions. 


Section I summarizes and describes the following: 


¢ DL/I Batch System 

¢ DL/I Online Processor 

¢ DL/I Facility Modules 

e Multiple Partition Support (MPS) 
¢ DL/I Utilities 


The DL/I batch system executes as an application program in a virtual storage 
environment under DOS/VS. The DOS/VS partition in which the DL/I batch 
system executes is composed of the elements shown in Figure 1-1 on page 1-2. 
These are: 


e The system control facility 

e The DL/I facility 

¢ The DOS/VS VSAM and SAM data management modules 
e« The user application program 


The major components of the DL/I system are the system control facility and the 
DL/I facility. The system control facility receives control from DOS/VS job 
control, initializes the DL/I batch system, and interfaces between DL/I and the 
user application program. The DL/I facility interfaces with the DOS/VS VSAM 
and SAM data management modules when performing the data base call function 
requested by the user application. 


The system control facility is divided into three functional areas (see Figure 1-2 on 


page 1-3): 

e Batch initialization 

e Language interface 

¢ Program request handler. 

Batch initialization is responsible for: 

¢ Initial interface with DOS/VS job management 

¢« Analysis and validity checking of DL/I parameter information 

e Loading the batch nici 

e Loading the DL/I application control blocks (PSB and DMBs) and relocating 


the control block addresses. 
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e Creation of the PSB intent list and the DMB directory (DDIR). 


¢« Acquiring and formatting storage for the buffer pool control blocks and their f ‘ 
related I/O buffers. 7 | 7 
e Loading the DL/I facility modules. 
¢ Loading the application program and passing control to it. 
The language interface provides communication between the application program 
and the program request handler. This module is link-edited with the application © 
program and provides a common interface for DL/I calls written in PL/I, COBOL, 
RPG II, or Assembler language. 
VSE 


USER 
SYSTEM CONTROL FACILITY APPLICATION 
PROGRAM 





DL/I FACILITY 





SAM 





| » LS SHSAM 
HD HDAM SHISAM HISAM HIDAM OR 
HSAM 


Figure 1-1. Elements of a DL/I DOS/VS Batch Partition 
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Figure 1-2. System Control Facility Relationships 


The program request handler receives the DL/I call from the user application 
program via the language interface. It performs the following functions: 


e Checks validity and, if necessary, reformats the caller’s parameter lists and 
submits them to the DL/I facility. 


e« Accepts parameter lists from the DL/I facility and moves data to the user’s 
work area, if required. 


¢ Returns control directly to the user application program. 





See Section 3 for a detailed description of each of these modules. 
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DL/I Online Processor 


_ DL/I Facility Modules 
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In an online environment, the DL/I system executes within the CICS/VS partition. 
CICS/VS provides exit interfaces to DL/I for the following: 


« DL/I system initialization during CICS/VS initialization. 

« DL/I system termination during CICS/VS termination. 

e DL/I user task completion and return of DL/I resources after the application 
program has issued a CICS/VS synchronization point (SYNCPOINT) 


command or has completed processing. 


When the user application program issues a DL/I call, control passes to a language 


| interface module, the EXEC interface program (if HLPI is used), and the program 
request handler. The program request handler validates the call and passes it to the ‘ 


DL/I facility. The DL/I facility invokes CICS/VS services through the online 
interface for such functions as transaction and storage management. On 
completion of the DL/I call, the DL/I facility returns control to the user 
application program via the program request handler. 


The functions of data base creation, access, maintenance, and reorganization are 
accomplished by the DL/1I facility (see Figure 1-3 on page 1-7). The DL/I call is 
passed from the system control facility to the DL/I call analyzer, which is the focal 
point of the DL/I facility. The type of call is analyzed (DL/I call, pseudo call, or 
internal call resulting from a DL/I call), and control is passed to the appropriate 
action module to process the call. 


The action modules of the DL/I facility, together with their major functions, are 
listed below: | 


e Open/Close Module 
— Open DL/I data bases 
— Close DL/I data bases 
— Interface with data base logger to write data set open record to log file’ 


« Delete/Replace Module 


— Delete a segment of a DL/I data base in conjunction with the buffer 
handler 


— Replace a segment of a DL/I data base in conjunction with the buffer 
handler 


— Interface with data base logger to record changes on log file 
— Interface with space management for HDAM and HIDAM data bases 


— Interface with index maintenance for data bases with indexes 
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Load/Insert Module 


— Load segments into a DL/I data base in conjunction with the buffer 
handler 


~ Insert segments into a DL/I data base in conjunction'with the buffer 
handler 


— Interface with data base logger to record changes:on log file 

— Interface with space management for HDAM and HIDAM data bases 
— Interface with index maintenance for data bases with indexes 

— Issue I/O for HSAM and Simple HSAM data bases 

Retrieve Module 


— Retrieve a segment of a DL/I data base in conjunction with the buffer 
handler 


— Perform data base positioning for load/insert 
— Issue I/O for HSAM and Simple HSAM data bases 
Index Maintenance 


— Maintain any indexes for HDAM or HIDAM data bases in conjunction 
with the buffer handler 


— Interface with data base logger to record changes on log file 
Space Management 


— Allocate and maintain free space on DASD in conjunction with the buffer 
handler for storage of DL/I segments for HDAM and HIDAM data bases — 


— Interface with data base logger to record changes on log file 
Buffer Handler 


— For HDAM or HIDAM data base, satisfy requests for segments or records 
from data currently available in the buffer pool 


— Issue I/O to VSAM for HDAM or HIDAM data base requests that cannot 
be satisfied from the buffer pool 


— Issue I/O to VSAM for all HISAM, Simple HISAM, and Index data base 
requests | 


Data Base Logger 


— Record all data base modifications on the DL/I log tape using DOS/VS 
SAM or disk log using VSAM, or CICS Journal 
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e Queuing Facility 
— Provide support for contention control at the segment and record level 
— Provide deadlock detection and resojution. 

e Field Level Sensitivity Copy Module 
— Provide user view/physical view conversion for field level sensitivity. 


See Section 3 for a detailed description of the modules. 
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Multiple Partition Support (MPS) 


DL/I Utilities 


HLPI Interface Modules 


Language Interface Modules 


1-8 DL/IDOS/VS Logic Manual, Volume 


DL/I enables batch application programs executing in different partitions to access 
online data bases concurrent with online applications. This capability is called 
multiple partition support (MPS). For example, MPS permits online applications to 
issue inquiries to a data base while a batch program updates the data base. MPS 
uses the DL/I resources and the multitasking facilities of DL/I and CICS/VS. 


The DL/I utility modules are categorized as follows: 


Application control blocks creation and maintenance: this utility program is. 
used to merge and expand into an internal format the control blocks created by 
the DBD and PSB generation utilities. The control blocks created by this 
utility are used by the DL/I system. 


Data base recovery: this is a set of utility programs employed to reconstruct a 
data base. | 


Data base reorganization: this is a set of utility programs employed to 
reorganize a data base. Use of these programs reduces direct access storage 
requirements by compacting data and thus reducing data base access time. 


Data base logical relationship resolution: this is a set of utility programs 
employed to update pointer information when data bases involved in logical 
relationships and/or secondary index relationships are initially loaded or 
reorganized. 


ISQL Extract Defines Utility: this utility creates and stores an ISQL routine 
composed of ISQL Extract Define commands from data previously gathered 
and stored in tables with the DL/I Documentation Aid. Once the routine is 
created, it can be run under ISQL to define the necessary DL/I information to 
the EXTRACT facility of SQL/DS. 


Problem determination: this includes the log print utility which enables you to 
print the contents of DL/I log files to help you recover from system failures, 
and the trace print utility which enables you to print trace entries from tape or 
disk input files which are created by the DL/I trace facility. 


The HLPI interface modules, DLZEIPOO, DLZEIPBO, and DLZEIPB1 build DL/I 
calls from data provided in calls generated from EXEC DLI commands by the 
CICS EXEC translator. After the HLPI interface modules build the DL/1 calls, 
they pass the calls to the Program Request Handler for execution by DL/I. 


There are two language interface modules used with batch and MPS HLPI 
programs. They are the COBOL language interface module (DLZLICBL) and the 
PL/I language interface module (DLZLIPLI). 


os 
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Section 2. Method of Operation 


This section contains HIPO (Hierarchy, plus Input, Process, Output) diagrams and 
is included in Data Language/I Disk Operating System/Virtual Storage (DL/I 
DOS/VS) Logic Manual, Volume 2, LY24-5215. 
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Section 3. Program Organization 





This section contains descriptions of the DL/I modules and their major routines. 
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System Control Modules 





DLZRRCO0 - Batch Initialization - Part I 


The responsibilities of this module are to: 


e Read required parameter information from SYSIPT or SYSLOG based on the 
UPSI byte setting. 


e Determine load address for batch nucleus module (DLZBNUCO). 
¢ Provide a DL/I message subroutine (ERRORMSG). 
e Branch to region control interface (DLZRRC10). 


Entry Interface - DLZRRC00 


DLZRRCO00 receives control from VSE job control. ( i 
Exit Interface 

DLZRRCOO0 passes control through branch to region control interface 

(DLZRRC10). 

Register Contents 

R7 Address of ERRORMSG os 

R10 Entry point address of DLZRRC10 | ‘- 


Entry Interface - ERRRORMSG 
ERRORMSG receives control through BALR from DL/I modules. 
Register Contents 


R1 PST address or parameter list address 
R13 Save area address jes 
R14 Return address : 
R15 Entry point address (DLZERRMS) 


Exit Interface - Calling Module 


Passes control through branch on register 14. 
DLZRRC1O0 - Region Control /Initialization - Part 2 


This routine receives control from the DL/1 initialization Part 1 routine and 
continues batch initialization. Its responsibilities are: 


e Save input parameters 

¢ Load batch nucleus module (DLZBNUCO) 
e Establish SCD and PST addressability 

¢ Invoke parameter analysis (DLZRRAOO) 

¢ Load and initialize PSBs and DMBs 

¢« Allocate and format buffers 
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e Branch to application program control module (DLZPCCOO) 
( - Entry Interface - DLZRRC10 
~ Receives control through branch from DLZRRCO0O 
Entry Register Contents 


R7 Address of ERRORMSG 
R10 Entry point address 


Exit Interface - Parameter Analysis 

Passes control by fall through to DLZRRAOO 
Exit Register Contents 

R2 Address of SCD 


R9 ~~ Address of PST 
R13 Save area address 


DLZRRAOO - User Parameter Analysis 





This routine checks the positional parameters for valid length and contents when 
first entered. Invalid parameters cause DL/JI to issue an error message and 
abnormally end. There is an entry at NXTPORT (just before buffers are to be 
allocated) to check keyword parameters. Errors cause DL/I to issue an error 
message and abnormally end. 
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Layout and Description of PARM Field 


| tii t1 | 


XXX,aaaaaaaa,DD 


XXX 


aaaaaaaa 


bbbbbbb 


ccc 


keyword 
operands 
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bbbbb,ccc,keyword operands 


PARM identifier in columns 1-3. 


DLI Data base program to be executed. 
UDR Data base recovery utility to be executed. 
ULU Data base reorganization or logical 
relationship resolution program to be executed. 
ULR HD reorganization reload utility to 
be restarted from checkpoint record. 
PLU _ Selective Unload 


One- to eight-character name of the 
application program to be executed. 


One- to seven-character name of the program 
specification block (PSB) as specified in 
the PSB generation. 


If PARM is UDR, ULU, or ULR, one- to 
seven-character name of the data base 


description (DBD) as specified in the DBD generation. 


Number of data base buffer sub-pools required for job execution. 


HDBFR, HSBFR, ASLOG, LOG, and TRACE 


Receives control from DLZRRC10 


Entry Register Contents 


e When entered at DLZRRAOO: 


R2 ~~ Pointer to SCD (not used) 
R9 ‘PST address | 
R13 Save area address (not used) 


e When entered at NXTPORT: 


R6 ___— Pointer to first subpool information table 
R8& SCD address 


Exit Interface 


¢ From DLZRRAOO entry: Passes control by fall through to DLZPCC00 
e From NXTPORT entry: Passes control by branch to PRMSRET 
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Exit Register Contents 


e From DLZRRAOO entry: 





R2 SCD address 
R9 PST address 
R13 Save address 


e From NXTPORT entry: 


R2 SCD address 

R6___— Pointer to last subpool information table 
R9_~PST address 

R13 Save area address 


DLZPCC00 - Application Program Control 


2 This routine is used only in the batch partitions. It performs some functions 
( os analogous to those performed by the CICS scheduler in the online control program. 
coll It is responsible for the following functions: 


e Initializing the storage management routine 
e Invoking the application control blocks loader/relocator 
e Invoking the control program initialization routine 
e Loading the application program 
¢ Initializing the PL/I region (if PL/I 
e Invoking the application program 
e Issuing an unload call in behalf of the application program upon termination 
( ms ¢ Writing the application program termination record on the DL/I log 
ba? | ¢ Closing the DL/I log. 


Data Areas Used 


PST 
SCD 
DDIR 
DMB 
SDB 


( * PSIL 


Entry Interface 

Receives control by fall through from DLZRRAOO 
Entry Register Contents 

R2 SCD address 

R9 PST address 

R13 Save area address 

Exit Interface 

e Passes control through BAL to DLZPINIT 

e Passes control through BAL to application program 


e Passes control through BAL to call analyzer (DLZDLAOO) 
¢ Passes control through BAL to data base logger DLZRDBLO) 
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e Passes control to VSE supervisor by issuing an SVC 14 normal EOJ supervisor 
call. 


Exit Register Contents 
e From exit to DLZPINIT: 


R2 SCD address 
R9 ~~ PST address 
R14 Return address 


e From exit to application program: 


R1 Address of PCB address list 
R13 Save area address 

R14 Return address 

R15 Entry point 


e From exit to DLZDLAOO: 


Ri PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at label SCDDLICT) 


e From exit to DLZRDBLO: 


R1....PST address 

R13 Save area address 

R14 Return address 

R15 Entry point of log write- snl routine (obtained frit SCD at label 
SCDREENT) or, Entry point of force write routine (obtained from SCD 
at label SCDDBLFW) or, Entry point of logger close routine (obtained 
from SCD at label SCDDBLCL) 


DLZDBLMO - Application Control Blocks Load and Relocate 


This routine performs the functions of loading and relocating DL/I application 
control blocks. Once the blocks are loaded and offsets resolved to actual 
addresses, the SDBs in the PCBs are connected to the appropriate PSDBs in the 
DMBs. The JCB data sets in the data base are connected to the appropriate ACBs 
in the DMBs, and control is returned to the calling routine. 


For ‘DLI or ‘PLU’ execution, the PSB name extracted from the PARM card is 
moved to the PSB directory and the PSB is loaded. The address of the PSB 
segment intent list and the PSB are stored in the PSB directory. The index work 
area (if required) is allocated and addresses are resolved. Next the intent list is 
scanned and the DMB directory is constructed from it. The DMB directory entries 
are scanned and the DMBLOADR subroutine (see below) is called to load and 
relocate the DMBs in the directory. Upon completion, the SDBs are connected to 
their corresponding PSDBs, the JCB DSGs are connected to their ACBs, and 
return is made to the caller. 


For the following utilities there is no PSB name in the parameter information: 


DLZURPR0O - Data base prereorganization 
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DLZURGSO - Data base scan 
DLZURGPO - Data base prefix update 





These utilities perform dynamic block loading using the DLZBLKLD macro. 


The DMBLOADR subroutine performs the loading and relocation of DMBs. The 
DMB directory is accessed and the DMB name extracted from it. A load is issued 
for the DMB and, if HDAM, the randomizing module extracted from the DMB is 
loaded. Next, the DMB directory entry is updated with a buffer size indication. 
For HD, this value is the control interval size of the data set; for HISAM, it is the 
logical record size. Then all offsets are relocated to addresses, and control is 
passed to DLZCPIOO. 


Entry Register Contents 


R2 SCD address 

R9 __~PST address 

R13 Address of one of a set of prechained save areas 
R14 Return address 





Exit Register Contents 


Same as entry register contents 


DLZCPI00 - Batch Control Program Initialization 


This routine receives control from the application control blocks load and relocate 
routine and completes the intialization of the DL/I batch system. It is responsible 


( *, for: 


e« Allocation of the buffer pool 

e Formatting the buffer pool prefix, one or more subpool prefixes, and the buffer 
prefixes 

¢« Loading all required DL/I action modules 

e Initializing the SCD 

« Opening the DL/I log 

¢ Writing the application program scheduling record on the DL/I log 


( Entry Interface - DLZCPI00 
Receives control by fall through from routine DLZDBLMO. 
Entry Register Contents 
R2 SCD address 
R9 PST address 
R13 Save area address 
Exit Interface 
Returns to DLZPCCO00O 


Exit Register Contents 


R9 _~PST address 
-R2 SCD address 
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R14 Return address - 
| DLZBPJRA - DL/I COBOL Preinitialization Module eo 


| This module is linked with batch COBOL programs to call ILBDSETO. An entry 
card with the name CBLCALLA is required in the link edit job step of the batch 
COBOL program. 
DLZBPJRA does the following: 


e Branches to IBLDSETO, the COBOL routine entry point 
e Then exits by branching to the application program entry point (DLITCBL). 


Interface — 
This module interfaces with the following: 


ILBDSETO - COBOL routine entry point Application program. 


fo» 
- Control Blocks | ra, 
None. 
Normal Entry Point 
The only entry point to this module is CBLCALLA 
Entry Register Contents . 
R14 Linkage register qy | 
R15 Base register 
Exit Register Contents 
R14 Linkage register 
R15 Application program entry point 
DLZLI000 - Language Interface —s 
The language interface provides communication between the application program we | 


and the program request handler. A copy of this module is link edited with user 
- application programs. 


The language interface has responsibility for: 
e Storing the user’s registers in the save area provided. 


¢ Providing a specific entry for Assembler, COBOL, RPG II, and PL/I 
application programs. 


° Locating the entry point of the program request handler. 


e Passing control to the program request handler 
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Entry Interface - DLZLIO00 


Receives control through branch from application program 





Entry Register Contents 

R1 Call parameter list of implicit or explicit format 

R13 Save area address 

R14 Return address 

R15 Entry point 

Exit Interface 

Passes control to program request handler through branch from DLZLIO00 


Exit Register Contents 


com. RO Language identifier code 
( Rl Parameter list | 
R2-14 As entered from application program 
R15 Entry point of program request handler 


DLZLICBL - DL/I DOS/VS HLPI Batch/MPS COBOL Language Interface 


This module obtains the entry point address of and passes control to DLZEIPBO. © 
Control Blocks - DLZLICBL 
( a | EIPL EIP parameter list 
| Normal Entry Point 
The entry points to this module are: 


DLZEIO1 Data base calls 
DLZEI02 All other calls 
DLZEIO3 Reserved 
pin, DLZEI04 Reserved 
( | DFHEI1 Common entry point 


Entry Register Contents 
R13 Register savearea address 


DLZLIPLI - DL/I DOS/VS HLPI BATCH/MPS PL/I Language Interface 


This module has two routines; An initialization routine with an entry point 
| DLZLIPLI and a processing routine with an entry point DLZEIOx, or DFHEIO1. 


Entry point DLZLIPLI is entered before the application program gets control. It 
finds the entry point address of PLICALLB and passes control to it. This is done 
to enable the PL/I HLPI application program to use non-PL/I PSBs. 


| DLZEIOx or DFHEIO1 performs the same functions as DLZLICBL (see 
DLZLICBL for details). 
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Control Blocks - DLZLIPLI 


EIPL EIP parameter list 


Normai Entry Points 


The normal entry points to this module are: 


DLZLIPLI From DL/1 initialization 
DLZEIO1 All other calls 

DLZEI02 Data base calls 
DLZEIO03 Reserved 

DLZEI04 Reserved 

DFHEIO01 Common entry point 
Entry Register Contents 


R13 Register savearea address 


DLZPRHBO - Program Request Handler 
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The interface between the application program and the DL/I batch or control — 
program is managed by the program request handler routine (DLZPRHBO) in 
module DLZBNUCO. It accepts parameters passed to it by the language interface 
module (DLZLIOO0), or the HLPI batch EXEC interface program, DLZEIPB1. It 
validates these parameters and passes a paramere list to the call analyzer. 


The program request handler accepts three call list formats: implicit direct, explicit 
direct, and explicit indirect. COBOL and Assembler-language programs may use 
either the implicit direct or explicit direct call list formats. Since special provisions 
are made for PL/I in handling the explicit indirect call list, it may be used only by 
PL/I language programs. 


The first parameter (argument 0) of the DL/I CALL determines whether the list is _ 


explicit or implicit. If the argument contains the address of the parameter count 
(count of the number of arguments that follow), this list is an explicit list. If the 
argument contains the address of the DL/ I CALL function, this list is is an implicit 


list. 


The responsibilities of this routine are to: 


e Verify parameter list addresses aligned and within the dynamic area of the 


machine 


¢ Reformat explicit parameter lists to implicit prior to submission 
e Reset PL/I STXIT PC processing 


¢ Provide caller’s parameter list to the call analyzer 
e Return data to application program work areas 


e Maintain PL/I variable-length character string dope vector 


e Identify abnormal termination condition 


e Return directly to application program 


« Write checkpoint message if checkpoint issued 
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Data Areas Used 
( . PPST 
oe PST 
SCD 
Entry Interface 
Receives control through branch from language interface (DLZLIO00) 


Entry Register Contents 


RO Language indicator. Bit X‘01’ on if PL/I, off for other languages. Bit X‘02’ 
on if HLPI, off if call interface 
R1 ‘Parameter list address (in application program format) 
R13 Save area address 
R14 Return (to application program) 
( : ™ R15 _ Entry point address 


Exit Interfaces 


e« Passes control through branch to call analyzer (DLZDLAOO) 

« Passes control through branch to error message writer (ERRORMSG) 
« Passes control through branch to abend processor (DLZABEND) 

e Passes control through branch to application program 


Exit Register Contents 
( ; - From exit to DLZDLAOO: 
R1 ‘PST address 
R13 Save area address 
R14 Return address : 
R15 Entry point of call analyzer (obtained from SCD) at label SCDDLICT 
e From exit to ERRORMSG: 
oe Ri PST address 
. R13 Save area address (PSTSV1) 
R14 Return address 
R15 Entry point of error message writer (obtained from SCD at label 
SCDERRMS) 
e From exit to DLZABEND: 
R15 entry point to DLZABEND 
e From exit to application program: 
R2-12 Restored to contents upon entry from application program to | 


language interface module (DLZLIOOO) 
R14 Application program return address 
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DLZABEND - STXIT ABEND 


DLZIWAIT - DL/I IWAIT 


Abnormal terminations invoked through the VSE STXIT or terminations requested 
by DL/I action modules are handled by DLZABEND. Responsibilities are as 
foliows: 


e Close the DL/T log. 

e Issue an UNLD call to write the last records for Simple HSAM, HSAM, Simple 
HISAM and HISAM or write all buffers altered by the user. The UNLD call 
also closes the data base. 

e Ifa dump is requested, write a formatted dump of DL/I control blocks. 

e _ Cancel the partition. 

Entry Interfaces 

e Receives control through VSE STXIT PC interface or STXIT AB interface 


e Receives control through branch from program request handler (DLZPRHBO) 


¢ Receives control through branch from DL/I action modules (including a 
special entry from the buffer handler) 


Exit Interfaces 


¢ Passes control through branch to data base logger (DLZRDBLO) 
¢« Passes control through branch to call analyzer (DLZDLAOO) 
e Passes control through SVC 6 (CANCEL) or SVC 2 ($$BJDUMP) to VSE 


Exit Register Contents 
e From exit to DLZRDBLO: 


R1 PST address 

R13 Save area address (PSTSV1) 

R14 Returnaddress | 

R15 Entry point of logger force write routine (obtained from SCD at label 
SCDDBLEW) or, 
Entry point of logger close routine (obtained from SCD at labe 
SCDDBLCL) | 


e From exit to DLZDLAOO: 


R1 ~—~=PST address 

R13 Save area address 

R14 Return address | 

R15 Entry address of call analyzer (obtained from SCD at label SCDDLICT) 


This module receives control when a DL/ action module requires VSE wait 
linkage. 
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Entry Interface 
( . Receives control through BALR from a DL/I action module 
Entry Register Contents 
R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 
Exit Interface 
e Passes control through SVC 7 (WAIT) to VSE. 


e Passes control through branch on register 14 to the calling program. 


DLZSTRBO - Batch Field Level Descriptor (FLD) Storage Manager 


( ; | This module frees the current field level descriptor storage, increases storage 
be” requirements for FLD by 128 bytes, and acquires the storage for the new FLD 
entries. 
Interface 
This module interfaces with the following module: 


DLZDLAOO - Call analyzer 


Control Blocks - DLZSTRBO 





e PPST - PST prefix 

e PST - Partial specification table 

e SCD - System contents directory 

Normal Entry Point 

The only entry point to this module is DLZSTRBO 
( : | Entry Register Contents 


R1_ PST address 
R13 Current register savearea address 


DLZSTROO - Online Field Level Descriptor (FLD) Storage Manager 


This module frees the current field level descriptor storage, increases storage 
requirements for FLD by 128 bytes, and acquires the storage for the new FLD 
entries. 

Interface 


This module interfaces with the following modules: | 


DLZDLAOO - Call analyzer 
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_ Control Blocks - DLZSTROO 


e CSA 

« TCA 

e PPST - PST prefix 

« PST - Partial specification table 
e SCD - System contents directory 





Normal Entry Point 
The normal entry point to this module is DLZSTROO. 
Entry Register Contents 


Ri PST address 
R13 Current register savearea address 


Online DL/I Processor Modules 


| Before attempting to use this section, you should be familiar with the Customer 
Information Control System/Virtual Storage (CICS/VS). References to the 
prerequisite publications are contained in the preface to this manual. 


The online DL/I processor modules DLZOLIO0 and DLZODP perform the 
following functions in a CICS/VS-DL/I environment: 


DL/I system initialization 
DL/I user task scheduling 
Processing DL/I calls (online program request handler) 
DL/I user task completion 
DL/I normal system termination 
- DL/I abnormal system termination 
DL/I online message writer 
DL/I-VSAM-CICS/VS synchronization via VSAM ‘EXCP’ Exit. 





so eo ao 


DLZOLI00 - Online Initialization 


In order to process DL/I applications i in an online environment, a DL/I online 
nucleus must first be generated. The DL/I online nucleus generation procedure is | | 
described in DL/I DOS/VS Resource Definition and Utilities. The result of the a | 
procedure described in the publication is a DL/I online nucleus. 


The online nucleus, which is link edited into a VSE core image library, consists of 
the following DL/I nucleus modules and tables: 


e module DLZODP 

e module DLZEIPOO 

« module DLZSTROO 

e module DLZCOMOO 

e module DLZLOCOO 

e module DLZODPEX 

e ACT (Application Control Table) 
e SCD (System Contents Directory) 
e DFHDLIAL (CICS/VS-DL/1I Interface Address List) — 
e SCD Extension 

e PDIR (PSB Directory) 
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e RPDIR (Remote PSB Directory) only if a Remote PSB is defined 
— e PPST (PST Prefix Table) 
( : ¢ PDCA (Problem Determination Control Area) 
Mia e EIPL (EXEC Interface Parameter List) 
« module DLZMMSGT 
e module DLZFTDPO 
-e module DLZISCOO (only if a Remote PSB is defined) 


The application control table (ACT) is used by DL/I online at CICS/VS 
initialization to verify and load all PSBs and DMBs that can be referenced online. 
The ACT is used during scheduling to determine whether an online program is 
permitted to use DL/I. It is also used by DL/I default scheduling to acquire a PSB 
to use if none was explicitly specified in the PSB scheduling call or command. 


The ACT is produced from parameters specified in the following DLZACT macro 
instructions: 


ct DLZACT TYPE=INITIAL 
( | DLZACT TYPE=CONFIG 
DLZACT TYPE=PROGRAM 
DLZACT TYPE=RPSB 
DLZACT TYPE=BUFFER 
DLZACT TYPE=FINAL 


Each ACT program entry is generated from the DLZACT TYPE=PROGRAM 
statement. These statements define to DL/I which application programs can use 
| DL/I online. They also define which PSB names can be used by each of the 
pom application programs. There is one ACT program entry for each DLZACT 
( . TYPE=PROGRAM statement used to generate the online nucleus. See the format 
el of the application control table (ACT) in Figure 3-1 on page 3-16. 
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A. A(SCDSTART) 


4 
A. Address of the System Contents Directory (SCD) 


lds B. C. D. | 
4 8 2 bytes 
B. Buffer pool information address or O 
F., ACTIND -— Entry indicator byte: 


C. Storage layout control table name or O 
+ 
2 bytes 
X‘80’ Program is a DL/I program 


D. Number of HD DBDs in HDBFR operand 
X‘40’ Program name not in CICS/VS PPT 


X‘30’ ABEND option bit 
X'02’ Program is deferred ~scheduled 
G. ACTPCNT Count of PDIR (PSB) pointers for this program 
Oe plated ro H. ACTPPTR  PDIR pointer(s), ACTPCNT indicates how many pointers are 


erie ial 7 ee here before the start of the next ACT entry. 


a Se entry ‘1’ 


E, ACTNM ACT program entry name 


Program entry ‘n’ 


aA 


A maximum of 4095 DLZACT TYPE =PROGRAM statements and a maximum of 
4095 unique entries (an entry consisting ot program name and one PSBNAME) may 
occur in one ACT generation. 


| 4 _ 


|. Delimiter (FF FF FF FF) indicating end of program entries 
aa. ieee or sa (subpool ‘1’) 


J: Length of entry 
K. DBD name 
L. Number of buffers 


HDBER entry (subpool ‘n’) 


HSBFR entry (DBD # 1) | 


Generated from: a en ko Ge 


DLZACT TYPE = | 2 8 2 2 2 bytes 


BUFFER 
. FF 00 


. DBD name 

. Number of index buffers 
Number of KSDS buffers 
. Number of ESDS buffers 


HSBFR entry (BDB #n) 


| 4 | bytes 


R. Delimiter (FF FF FF FF) 


O7TOZSsE 


Figure 3-1. Application Control Table (ACT) Format 
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Nucleus and Table Initialization 


Load Action Modules 


DL/1 initialization is performed during CICS/VS initialization just after loading 
the CICS/VS nucleus. The DL/I online nucleus module has been loaded by 
CICS/VS in the same manner as a CICS/VS nucleus module, and its address is 
placed in the CICS/VS CSA optional features list. 


DL/I verifies the presence of the online nucleus by checking the CICS/VS 
optional features list DL/I entry for a non-zero value. Once verified, the program 
request handler entry point is moved to the COMREG using the MVCOM macro. 
Each PSB name in the ACT is eight characters in length. Each PSB name is 
padded with @’s, if required, to make it seven characters long, and a P to make it 
eight characters long. 


Next the PSB segment intent list is built. This is accomplished by loading each PSB 
defined in the ACT, except those defined as remote PSBs, in ascending address 
space in the low end of the partition and moving the intent list, which is appended 
to the front of the PSB, to an entry in the PSB segment intent list table. The length 
of the PSB plus the length of the index work area, if required, are used to calculate 
how much storage to reserve. The segment intent list is overlaid during this process 
because its information is redundant. The PSB directory entry for each PSB is 
initialized with the address of the intent list, the PSB’s storage address, and the 
amount of storage required. 


The DMB directory is constructed. One DMB directory entry is created for.each 
unique data base (DMB) defined in the PSB intent list entries. DMB names are 
eight characters in length and consist of the DBD generation name extended to 
seven characters by at-signs (@) if necessary. The eighth character is D. At this 
time, a validity check is performed to ensure that all required DMBs, defined by the 
PSB intent list, have been defined in the CICS/VS file control table (FCT). If any 
are missing, a message is written on the system console and the operator is given 
the option to continue or cancel. If initialization is to continue, PSBs which require 
the omitted DMB(s) are flagged to indicate this condition. Application programs 
which use these PSBs are not scheduled. 


Initialization continues with the loading of all DMBs specified in the DMB 
directory. As each DMB is loaded, the corresponding entry in the DMB directory 
is initialized. A test is then made for HDAM and the defined randomizing routine 
is loaded. As the DMBs are loaded, they are initialized. After all DMBs have been 
loaded and initialized, the size of the buffer pool is determined. The size of the 
pool is based on a user-supplied parameter which defines the number of subpools, 
the control interval size of each VSAM data set, and the HDBFR subparameter, 
which tells how many buffers will be in a subpool. 


After the pool size is determined, the required address space is reserved. Then the 
buffer pool prefix in the online nucleus is initialized. Next the subpool prefixes a are 
created and initialized. There are 2-32 prefixes for each subpool. 


Upon completion of initialization of the buffer pool and prefixes, the DL/I action 
modules are loaded. As the modules are loaded, their corresponding entry points | 


are moved to the SCD. The modules are loaded in the following standard sequence 


if not otherwise specified by a storage layout control table: 


DLZDBHOO Buffer handler 
DLZDLROO Retrieve 
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DLZDLAOO Call analyzer — 


DLZRDBLO ~~ Databaselogger a | . es 
DLZDLDOO Delete/Replace 7 | nt ar) 
DLZDDLEO —_Load/Insert nd 
DLZDHDSO Space management | 


DLZDXMTO Index maintenance 

DLZDLOCO Open/Close 

DLZQUEFO _ Program Isolation ENOQ/DEQ module 
DLZQUEFW Program Isolation ENQ/DEQ work area 
DLZCPY10 | Field Level Sensitivity Copy 


Initialize PSBs 


Upon completion of the loading of the action modules, initialization moves the — 
specified PSBs using information stored in the PSB directory entries. After each 
PSB is moved, it is initialized and its corresponding PSB directory entry filled in: 


Attach Logger 
If data base logging has been specified by the user, the logger I/O module is Me y 
initialized and attached. If the log module fails to attach, the data base log is closed 
and no logging takes place. 


Open Data Bases 


The final step of initialization is the opening of the data bases. The DMB directory 
is scanned for DMB’s that failed during initialization and the open initial attribute 
is reset for any found. Next the data bases are opened via an ‘open all’ call to the 
DL/I Open/Close module. All modules indicating open initial in the DDIR are 
opened by Open/Close at this time. 





Upon completion of the open processing, the [WAIT routine address is restored 
and control is returned to CICS initialization. 


- DLZODP - DL/I Task Scheduling 


DL/I Scheduling 


A DL/I call or HLPI SCHEDULE command initiates DL/I PSB scheduling. The on 
call function code is ‘PCB’ and the call contains the name of the PSB to be used. J 
The call is passed to the online program request handler via a language interface 
module and a scheduling validity check is made. If the call is valid, the parameter 
list is checked for a User Interface Block (UIB) pointer parameter. If specified, a 
UIB will be used for returning return code and PCB address list information to the 
application program. Upon completion, control is returned to the application 
_ program through the program request handler and the language interface. If the 

call is invalid, a two byte error return code is stored in the UIB or CICS/VS TCA 
and control is returned directly to the application program. For an HLPI 
command, the task abnormally terminates with a DLZ037I message mialeupe why 
the PSB was not scheduled if the call could not be completed. 


If the ‘PCB’ call is made to schedule the system interface (by specifying a PSB 
name of ‘SYSTEMDL’), the password is tested against the one generated in the 
nucleus via the DLZACT macro and the system interface is tested for availability. 
A PST and dummy DSG are acquired for the caller, the task is marked as a system | 
task, and control is returned to the user. 
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Task Scheduling 


~ Local PSB Scheduling 


PSB Initialization 


The caller provides the name of the PSB to be scheduled or optionally if the caller 
omits the PSB name in the call list, the first PSB name in this program’s ACT entry 
is provided as default. 


This subroutine determines whether DL/I can schedule another concurrent task. 
The SCD maximum task indicator is tested. If it is on, the task cannot be 
scheduled and the SCD suspended task counter is incremented by one. A 
CICS/VS SUSPEND macro is issued to suspend this task. | 


If the SCD maximum task indicator is off, an available PST prefix entry is located 
and initialized for this task. The DL/I task accumulator is incremented by one and 
a test is made to determine whether the number of DL/I tasks now equals the 
maximum allowed. If yes, the SCD maximum task indicator is set. 


PST storage is acquired from CICS/VS Storage Management and the storage 
address is saved in the assigned PST prefix. Task Scheduling consists of formatting 
the save area chains and storing the address of the assigned PST prefix. Control is 
passed to the local/remote call router routine, DLZCOMOO0. If a remote PSB is to 
be scheduled, control is passed to the remote scheduling subroutine, DLZISCOO, 
which transfers the request to the remote system. If a local PSB is to be scheduled, 
control is passed to the local PSB scheduling routine, DLZLOCOO. 


This subroutine determines the segment intent of the PSB being scheduled and 
ensures that no more than one task is scheduled to update the same segment 
type(s) in the same data base unless program isolation is active. For retrieve 


_ sensitive only PSBs or update sensitive PSBs with program isolation active, a 


duplicate PSB is created if a prior task has scheduled the same PSB. If the task 
cannot be scheduled, a CICS/VS SUSPEND is issued. If not in use, but retrieve 


sensitive only, the in-use indicator is set and control is passed to PSB initialization. 


If neither of the above is true, the PSB segment intent list entry is scanned. If 
program isolation is not active and the PSB is not retrieve only sensitive, the PSB 
segment intent list entry is scanned. 


The segment intent list for this PSB is located from the PSB directory entry. This 
list defines all segments in the data base(s) used by this PSB and the PSB’s 
sensitivity to them. The segment intent list entry is compared to the segment intent 
list entries of all scheduled PSBs. If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise a CICS/VS SUSPEND is issued for 
the task. Upon completion of a successful segment intent scan, the PSB 
initialization subroutine is called. 


If it is necessary to provide duplicate copy(s) of PSBs, this routine acquires storage 
for the copy and moves the original copy to it. Addresses in the duplicate PSB are 
initialized and a duplicate PSB directory entry is created. The level table(s) are 

then reset and control passed to the PSB initialization subroutine of DLZLOCOO. 


_ PSB initialization consists of inserting the SDBs in the PSB into the SDB chain. 


The PSB is located from its PSB directory entry, and the address of the PCB 
address list is stored in the CICS/VS TCA. Each PCB is located and the JCB 
pointer is used to obtain the address of the start of the SDBs for that PCB 
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(JCBSDB1). Each JCB is accessed and the SDB chain pointers in the SDB and the 
PSDB in the DMB are updated. This process continues for all SDBs defined in the 
PSB. | 


The address of the assigned PST is obtained from the PST prefix and stored in the 
PSB. Using this address, the PSB directory entry address is stored in the PST. The 
“DL/I is scheduled” indicator in the PST prefix is set. If the PSB indicates update 
sensitivity, a call is made to the DL/I data base logger module (DLZRDBLO) or 
CICS/VS journal interface routine (DLZDRBL1) to write an application program 
scheduling record (X‘08’). Control is then returned to the application program. 


This routine builds a scheduling call parameter list and passes it to the CICS/VS 
ISC interface routine, DFHISP. The call format is again transformed and routed 
by CICS/VS to the remote system that was defined in the corresponding DL/I 
online nucleus RPSB definition. The scheduling call is executed on the remote 
system by a CICS/VS mirror program, DFHMIR. The results of the scheduling 
call is returned to the local system by CICS/VS. If the scheduling call was 
successful, CICS/VS returns the addresses of local copies of the PCBs acquired in 
the remote system. 


_DLZPRHOO0 - Online Program Request Handler 


Language Interface Module 


Program Request Handler 


DL/1I online calls are made in the same format as batch calls except that CALLDLI 
is used instead of CALL for Assembler language. The user issues a call instruction, 
passing parameters in the call list, and provides a register save area address in 
register 13. Communication of the results of the call is also identical to the batch 
system. It should be noted that although the format of the call instruction for 
online is the same as in batch, storage used by DL/I to process the call (i.e., 
register save area, all data items in the call list, I/O area) must be acquired from 
CICS/VS dynamic storage due to the re-enterability requirements of application 
programs which run under CICS/VS. 


DL/I HLPI commands are translated into calls to the DL/I EXEC interface 
program DLZEIPOO. This module converts translator-generated calls into 
standard DL/I calls for each HLPI command. 


Be 


The language interface module is link-edited with each application program. The 
module has two entry points; one for Assembler, COBOL, and RPG II; and the 
other for PL/I. The first function performed at either entry point is to save the 


_user’s registers. Then a language indicator is set, the entry point to the program 


request handler is acquired from the VSE COMREG, and a branch is taken to the 
program request handler. 


For HLPI, CICS/VS EXEC stubs, DFHECI for COBOL, and DFHPLI1I for PL/I, 
are used instead of the DL/I language interface module. The CICS/VS stubs pass 
control to the CICS/VS EXEC interface program and then the DL/I EXEC 
interface program before control is given to the program request handler. 


| | The program request handler validates the DL/ I call parameters. For scheduling 
_ calls, control is then given to the task scheduling subroutine and then tothe 


common PSB scheduling routine, DLZCOMO0. For data base calls, control is 
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IWAIT Routine 


DLZODPO1 - Task Termination 


Task Termination 


given to the common data base call subroutine, DLZCOMO1. This subroutine 
routes local calls to the call analyzer and remote calls to the remote data base call 
subroutine, DLZISCO1. 


The DL/I action modules process the local calls and return control to the program 
request handler through the call analyzer. A test is made in the program request 
handler to determine whether a pseudo-ABEND condition exists. If it does, a 
CICS/VS task ABEND macro is issued with an ABEND code indicating the 
reason. If an ABEND is not required, a test is made to determine whether the call 
requires data to be moved back to the user. The data is moved to the user’s I/O 
area if required. The user’s registers saved by the language interface are restored 
and control passed back to the calling application program. 


System calls ‘CMXT”’, ‘STRT’, ‘STOP’, “TSTR’, and ‘TSTP’ are processed by the 
system call routine, PROCSYS in DLZODP, after being routed there by the 
program request handler. 


The IWAIT routine is entered from the DL/I buffer handler (DLZDBHO0) or from 
other modules whenever an I/O wait or resource enqueue wait must be issued. 
The following processing occurs: : 


e Registers 14 through 12 and 13 are saved. 


e Registers 12 and 13 are initialized with the CICS/VS CSA and currently 
dispatched TCA. | 


e ACICS/VS WAIT is issued. 


¢ Upon return, checks are made to ensure the logger and formatted dump 
routines are not busy. 


e« All registers are restored. 


¢ Control is returned to the calling module via register 14. 


DL/I task termination is entered from the CICS/VS PCP when a user’s task 
scheduled by DL/I returns through CICS/VS Program Management, issues a 
CICS/VS sync point, or issues a DL/I ‘TERM’ call. This routine is responsible for 
purging buffers altered by this task, calling the data base logger to write the 
application program termination record (X‘07’), releasing any system resources 
owned by this task and resuming tasks which were suspended for the maximum 
task limit. 


Task termination writes a termination trace entry in the CICS/VS trace table. 
Then it determines whether this task is scheduled to use a remote PSB. If it is, 


- control is given to the remote termination call subroutine, DLZISCO2. This 


subroutine issues a CICS/VS sync point call which causes the remote mirror 
program, DFHMIR, which processes calls on behalf of the local application 
program, to be terminated. Next, task termination determines whether this task 
was assigned a PST prefix. If not, this task must have been stall-purged by 
CICS/VS after being suspended during task scheduling. In this case, the 
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/ suspended count accumlator is decremented and the task’s TCA removed from the 
DL/I suspended task chain. Control is then returned to CICS/VS Program 
| Management. 





was scheduled. If not, the task was stall-purged by CICS/VS. This means this 
task was suspended by a CICS/VS Storage Management attempt to acquire either 
PST or PSB storage. If it was due to PST storage acquisition, the assigned PST 
prefix is cleared and put back on the free chain and the system resource allocation 
routine is entered. If it was due to PSB storage acquisition, the PSB directory entry 
is cleared, PST storage is freed, and the PST prefix is inserted in the free chain. 
Control is then passed to the system resource allocation routine. 


If the task was scheduled and active, normal task termination proceeds. First a 

DL/I internal ‘TERM’ call is issued to the call analyzer (DLZDLAOO). This call 

causes the analyzer to reset the level table(s) in the PSB. If update sensitive, the 

buffer handler (DLZDBHO0) is called to write out all buffers altered by this task. 

Next the PSB directory entry is tested for update sensitivity. If indicated, the data . a 
base logger (DLZRDBLO or DLZRDBL1, if CICS/VS journal is in use) is called | 7 g 
to write the application program termination record (X‘07’). If the task had update = 
sensitivity, the PST prefixes are scanned and any suspended for scheduling because 

of segment intent conflict are resumed. 


Next the PSB directory entry is released. A test is made to determine whether this 
was a duplicate PSB. If so, the storage acquired for the PSB is freed and the 
duplicate PSB directory entry is cleared. | 


If the system call interface is active, the DDIR entries for the terminating PSB are {> 
checked to see if the system task is waiting to close this data base. If it is and the . ‘eo 
use count of the DMB is now zero, the system task is posted to continue 

| processing. 





System Resource Allocation 


This routine is responsible for resuming tasks which are suspended due to the 
maximum task limit. First the DL/I suspended task counter is tested. If nonzero, 
the first task on the DL/I suspend chain is located and a CICS/VS RESUME 
macro is issued. The suspend chain is then updated by removing the task’s TCA 
from it, the suspended task counter is decremented, and, if zero, the maximum a | a 
indicator i is reset. Control is then returned to the CICS/VS PCP. 


DLZODP02 - DL/I Normal System Termination 


The following processing occurs prior to CICS/VS termination. 

« DL/Isystem termination (DLZODPO2) is entered from the DL/1 linkage 
module DLZSTPOO, as specified in the CICS/VS pre-termination processing 
list section of the program list table (PLT). 

e« If in use, the DL/ I log DTF is closed via a VSE CLOSE macro. 


e If MPS is active, control is given to the MPS system termination routine in 
DLZMPC00. 


e Control is feturned to CICS/VS. 





_«  DL/I system termination is re-entered by CICS/VS system termination. 
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e ADL/I CLOSE call is issued to the DL/I Open/CLose module 
(DLZDLOCO) to close all data sets for all DMBs in the system. 





e Control is returned to CICS/VS. 
DLZODP03 - DL/I Abnormal System Termination 


The DL/I abnormal system termination routine is entered from CICS/VS when: 
the DL/I partition is to be terminated abnormally. The following processing 
occurs: 


¢« A Switch is set to avoid closing data bases on invocation of DLZODP02. 
e Control is returned to CICS/VS which later calls DLZODPO2. 


DLZODP04 - PSB Scheduling Start-of-Task Record Routine 


This routine issues CICS/VS DFHJC macros to write a CICS/VS Start-of-Task 
record to the CICS journal. 


( | This routine is entered from DLZCOMO0 on successful completion of a Pos 
scheduling call for a local data base. 


This routine is not called if a PSB with read-only intent is scheduled. If a 
CICS/VS Start-of-Task record was previously written for the current CICS/VS | 
logical unit of work, this routine returns without writing the Start-of-Task record. 


DLZODPOS5 - Task T. ermination Sync Point Routine 


be taken when a DL/I PSB termination or DL/I checkpoint call is being processed. 
For TERM calls, this routine is entered from the DL/I Task Termination Routine, 
DLZODP0O1. For CHKP calls, it is entered from DL/I Online Common Data Base 
Routine, DLZCOMO1. 


Cc This routine issues a CICS/VS DFHSP macro to force a CICS/VS sync point to 


The sync point macro is not issued when DLZODPO1 and subsequently, 

DLZODP05, is entered from the CICS/VS sync point program, DFHSPP, while 

processing a CICS/VS sync point. Instead, a CICS/VS deferred work element is 

created to ensure that DL/I will be given control again after additional CICS/VS 
( ae sync point processing has been completed. 


DLZODP06 - Abnormal Task Termination Dump Entry 


This routine is entered from DFHPCP on abnormal task termination before 
dynamic transaction backout is performed by CICS/VS. This routine determines 
whether a DL/I formatted or VSE IDUMP should be taken and gives control to 
the appropriate dump routine. 


DLZODP07 - Abnormal Task Termination I/O Check Entry 


This routine is entered from DFHPCP on abnormal task termination before 
SETEXIT check is made. This routine checks for and cancels any DL/I I/O 
- requests that had not completed when the task was terminated. 


DLZODP10 - Common Get Storage Routine for DL/I Online Modules 


This routine gets storage for CICS/VS (up to the maximum GETMAIN size) or 
VSE (for requests beyond the maximum CICS/VS GETMAIN size) on behalf of 
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various DL/I online routines. This routine adjusts the requested storage size and. 
address to allow for the CICS/VS Storage Accounting Area and its own storage 
accoununs area. 


ra 


/I Oniine Common Free Storage Routine 
This routine returns storage obtained by using DLZODP10. 
DLZERMSG - DL/I Online Message Writer 


The following processing occurs: 


e The DL/I error code is extracted from the active PST or from a parameter list 
pointed to by register 1. ) 


¢ CICS/VS storage is acquired. 


¢ The appropriate DL/I message text is generated using DLZMMSGT and 
logged to destination CSMT via CICS/VS Transient Data Management and to 
the operator’s console. 


e Control is returned to the calling routine. 


If an error occurs while writing to transient data, an ABEND indicator is placed in 
the TCA and control is returned to the calling routine. 


DLZOVSEX - VSAM EXCP EXIT Processor 


This routine prevents the CICS/VS partition from being put into a WAIT state due 
to DL/I initiated VSAM I/O. It does this by issuing a CICS/VS WAIT instead of 

_letting VSAM issue a VSE WAIT. The EXCP exit processor receives control 
directly from VSAM after each SVC 0 resulting from a GET or PUT call from the 
buffer handler. DL/I checks the ECB for completion of the I/O request. If the 
request is incomplete, the CICS/VS environment is re-established and a CICS/VS 
task control wait is issued in behalf of the current task. If the ECB was previously 
posted or the event completion has caused the task to be removed from the wait 
condition, control is returned directly to VSAM via register 14. 


DLZFSDP0 - DL/I Formatted System Dump Program 


The batch and online nucleus programs use this module to dump Rey I control 
blocks. 


Entry Interface - DLZFSDP0O 
| This module interfaces with DLZBNUCO in batch and DLZODP02 in online. 
Exit Interface 
This module etntis control to caller. 
Entry Register Contents 
R1 SCD address 
R13 Save area address 


R14 Caller return address 
R15 Module entry point address 
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DLZFIDP0 - DL/I Formatted Task Dump Program 


This module formats DL/I task control blocks and writes them to CICS/VS dump 
data sets whenever this module is linkedited with the online nucleus and an 
application program scheduled to a DL/I data base ABEND. 


If the DL/I system terminates abnormally without the CICS/VS system 
abnormally terminating, this module executes for each DL/I task active at DL/I 
ABEND. 


Entry Interface - DLZFTDPO 


This module is called by DLZODP06. 

Exit Interface 

This module returns control to DLZODP06. 
Entry Register Contents 

R6 System TCA address 

R12 User TCA address 

R13 CSA address 


R14 Caller return address 
R15 Module entry point address 


| DEZCBDP0 - DL/I Formatted Control Block Program 


This module is a collection of subroutines that build a list of addresses that are used — 


. to print DL/I control blocks. 


Entry Interface - DLZCBDPO 


This module interfaces with DLZFSDPO and DLZFTDPO, the formatted dump 
programs. 


Exit Interface 
This module returns control to the caller: 
Entry Register Contents 


R11 Address of desired subroutine 
R14 Caller return address 


R15 Module entry point address 


Control blocks 
ACB PDIR 
ACT PPST 
BFFR PSDB 
| BFPL PST 
DDIR RIB 
DIB RPCB 
DMB RPDIR 
| EIPL SBIF 
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FDB 


| FERT 


FLD 
FSB 


PATH 


PCB 


SCD 
SDIB 


SSA 


SSAP 
SSAX 
UIB © 
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PDCA 
DL/I Facility Modules 


~ DLZDLAO0 - Call Analyzer 


The call analyzer module is used for initiation of all data base calls. It receives 

control from the DL/I common data base call routine (DLZCOMO01) in the 

CICS/VS-DL/I region or from the batch application program request handler 

(DLZPRHBO). It receives control from application program control (DLZPCC00) 

at termination of a DL/I batch partition or online task termination eee ; 
in a CICS/VS-DL/I partition. fo 
ened 
For internal DL/I calls to update an index data base, this module (DLZDLAOO) 

receives control from the index maintenance module (DLZDXMTO0). 


The call types handled by the call analyzer module can be divided into two groups: 
(1) normal data base calls, and (2) special control calls, which are sometimes 
referred to as ‘pseudo’ calls. The special calls are GSCD, get SCD address; TERM, 
write all buffers altered by that user; and UNLD, write last records for simple — 
HSAM, HSAM, simple HISAM, and HISAM load or write all HDAM and HIDAM 
data base buffers altered by that user and close all data sets in the system. In the f° 

online environment, GSCD calls are processed by DLZCOMO1 and pe to the ey 
call analyzer module. | 





The primary functions of the call analyzer are: 


e Test the first parameter in the call list for a valid four-character function and 
encode this into a one-byte function code. 


¢ Test the second parameter in the call list for a valid PCB address and store the oN 
PCB address in the PST. By 8) 


Ney 
¢ Store the third parameter in the call list in the PST. This is the user’s I/O area 
address. 


° Verify the format of all segment search arguments (SSAs) in the call list and 
fill in the corresponding level table entry for the SSA in the call. 


e Do required checking based on call type and SSAs. 


e Test for field level sensitivity when processing SSAs and set on bit if present. 
Call DLZCPY10 to map user’s view to physical view if necessary. 


¢ Do sequence checking when loading a data base. 


¢ Pass control to the proper action module to process the call. 
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If a data base call requires the VSAM control blocks or SAM DTF representing the 
files within a data base to be opened, the analyzer calls upon the DL/I open/close 
module (DLZDLOCO) to perform the data management open for all files which 
may be needed for that PCB. The DL/I open/close module is called when the 
UNLD call is received to close all DL/I data bases opened in the batch partition. 


During normal processing of the SSA, when an SDB has been located for the 
segment, a test of the SDB will be made to determine if field level sensitivity has 
been specified (bit SDBFSB set on in field SDBXFL). If it has, an indicator will be 
set in the JCB, signifying that at least one segment has field level sensitivity (bit 
JCBFLS set on in field JCBLVT). 


When processing a qualified SSA, a check is made to determine if field level | 
sensitivity has been specified for the segment. If it has, the FSB chain is scanned to 
see if the field name exists. If the field name does not exist or if the FSB is not 
flagged as an allowable field, a return code of ‘AK’ (invalid field name in call) is 
stored in the PCB and return is made to the caller. 


If the field name is found and it is an allowable field, then qualification is set in the 
level table based on information in the FSB (qualification on data or key). 


When the Call Analyzer determines that at least one segment has field level 
sensitivity, it will no longer do the processing to determine the offset of the 
segment in the user’s I/O area (entry in LEVUSEOF will not be initialized by the 
Call Analyzer). | 


Prior to calling the insert, replace, or retrieve (only if called on behalf of insert) 
action modules, if the field level sensitivity indicator has been set in the JCB, the 
Call Analyzer will exit to DLZCPY10 to map the user’s view to the physical view. 
At this point,the field level sensitivity indicator in the JCB will be reset. Any error 
passback from DLZCPY10 will be detected and exit will be taken to the Program 
Request Handler. 


The field level sensitivity indicator will also be reset if an error is détected while 
processing the SSAs. 


Control Blocks - DLZDLA00 


PST 
PDIR 
PSB 
DDIR: 
DMB 
PCB 
JCB 
Level table 
SDB 
FDB 
FSB 


Register Contents 


R11 _~PST address 

R13 Save area address 
R14 Return address 
R15 Entry point address 
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Interfaces - DLZDLA00 
Receives control from DLZPCC00, DLZODPO00, and DLZPRHBO. 


Passes control to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/1 action moduies): 


These modules need not save the analyzer’s registers. They can return to the 


analyzer’s entry point plus an offset stored in the SCD. 
Call to DLZDLOCO - DL/I open/close: 


PSTENCTN has open function 
PSTDBPCB has address of the PCB 


Call to DLZDBHOO - buffer handler: 
PSTFNCTN is PSTPGUSR (X‘07’) 


Call to DLZCPY10 - field level sensitivity copy 


The function of module DLZDLOCO is to open and close the DL/I data bases in — 
either the CICS/VS online control region or the batch partition. VSE open/close 
macros are used to open and close data sets. DLZDLOCO opens/closes VSAM | 
ACBs for all data base organizations besides HSAM and simple HSAM, where 
DTFs are used. For simplicity the term ACB is used in the following description 
where ACB or DTF would be correct. For a HISAM data base with all functions, 
except for PSTOCDCB, both the KSDS and ESDS are opened/closed. 


The PSTFNCTN byte in the PST determines the type of operation to be performed 
by DLZDLOCO. 


e PSTOCDCB (X‘10’) - Only one ACB is opened/closed. It is located by DSG 
address (PSTDSGA). 


e PSTOCPCB (X‘02’) - For PROCOPT = L or LS one data base is opened. 
For PROCOPT # L or LS: 
All SDBs of that PCB are scanned and all referenced data bases are opened, 
that is, index data bases and logically related data bases are opened/closed 
with this call. 

e PSTOCDSG (X‘40’) - One or two (HISAM) data bases are opened/ closed. 
The ACB is located by DSG address (PSTDSGA). 

e PSTOCALL (X‘04’) 
— For open: 

All ACBs specified for initial opening are opened (CICS/VS online control 


region only). 


— For close: | 
All ACBs in the system are closed. 
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e PSTOCDMB (X‘01’) - The ACBs of one DMB are opened/closed. The DMB 
directory address is passed in register 2. 


DLZDLOCO compares the following values specified in DBD generation with the 
VSAM catalog entries for a data base: 


e Control interval size 
« Key length (KSDS) 
« Relative key position (KSDS) 


« Highest RBA used in the data base based on the PROCOPT. For example, 
PROCOPT=L requires an empty data base (high RBA=0), while a data base 
must contain data if PROCOPT¥L (high RBA>O). 


For HISAM, HIDAM, and HDAM data bases, the first control interval of the 
VSAM ESDS is reserved for the DL/I control record. DLZDLOCO maintains this 
record. 


¢ If PROCOPT=L or LS, space is acquired for one control interval and the | 
DL/I control record is constructed. The buffer handler (DLZDBHO0) is called 
to write the DL/I control record. 


An open record, code X‘2F’, is written to the log file whenever a data base is 
opened. If the open call is successful, bit zero (JCBOPEN) of the JCBORGN byte 
equals one (PCB call); and bit zero (PSTOCBAD) of the PSTFNCTN byte equals 
zero. 


All PSDBs of a DMB are scanned for variable length segments with the 
edit/compression routine. All edit/compression routines that have ‘INIT’ specified 
are called after ‘“‘open’’ and before “‘close’’. 


Register Contents 


R1___~PST address 

R2 DODIR address if it is a close DMB call 
R13 Save area address 

R14 Return address 

R15 Entry point address 


_ Control Blocks - DLZDLOCO 


e DL/I control record - DLZRECO 
e PSTFNCTN field of the PST: 


Bit Value Meaning 
1 1 Process DSG 
2 1 Open for load 
3 1 Process specific ACB 
4 0 Close call 
1 Open call 
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Bit Value eae 

5 1 Open/close all DMBs 
6 1 Open/close a PCB 

7 1 Open/close a DMB 





DLZDLD0OO0 - Delete/ Replace 


This module performs the logical actions involved in replacing or deleting segments 
in a DL/I data base for all organizations, except HSAM (which has no delete or 
replace). | 


The replace function checks to ensure that the key field of the segment was not 
inadvertently altered and that the replace rules were not violated. If the segment to 
be replaced is indexed, this module interfaces with the DL/I index maintenance 
module (DLZDXMTO). 


The first check made upon entry is a key check of the contents of the PCB key 
feedback area to the key of the segment in the user’s I/O area. If there are any | 
changes, a ‘DA’ status code results. Next the segment is retrieved and the wy 
sequence fields are checked for any changes. If any changes occurred, a ‘DA’ 

status code again results. Then the remainder of the data is checked for changes. 

If there were no changes, a blank status code is returned. If there were changes, 

the data is replaced. 


If the segment to be replaced is in an HDAM or HIDAM data base and the 
segment is variable length, the segment and its prefix may be separated. The 
separation of data is determined by the min-byte value of DBDGEN and the : 
current size of the segment. -Also in this regard, if the segment was previously a ‘ 
separated from its prefix prior to a replace call, the replace will attempt to rejoin wy 
data and prefix. | 


The delete function for a HISAM data base reads the segment to be deleted. If the 
organization is simple HISAM, the buffer handler is called to issue a VSAM 
ERASE. Otherwise, the segment is deleted by setting the HISAM segment delete 
bit. In addition, if this is the root segment, the record delete bit is also set. 


The delete function for HDAM or HIDAM data bases includes a check to ensure Pa 
that delete rules stated for the DMB will not be violated. If logically related i. 
segments with a physical delete rule exist in the data base within the physical | 
hierarchy starting with the segment to be deleted, a scan is made of all the 
segments to ensure that they include no segment which has not been logically 
deleted. 


A scan of the data base from the point of deletion is performed. During this scan, 
each segment is accessed twice: once on the way ‘down’, and again on the way 
‘up’. While scanning ‘down’, any segment in a logical relationship is inspected to 
determine its eligibility for deletion and to terminate as many logical relationships 
as possible. In some cases (for example, the last logical child for a logical parent 
which has already been deleted through its physical path), the deletion of all, or a 
portion of, the logically related data base record is required. In this case, the delete 
action is expanded to perform the total delete function (except for the checking) 
for the new data base record. Then the scan of the original data base record is 
continued at the point of exit. 
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When scanning ‘up’, an interface with index maintenance (DLZDXMTO) is made if 
the segment is indexed. Physical pointers are adjusted to bypass any removable 
segments (HDAM or HIDAM segments which are no longer required) whose space 
is released by interfacing with the space management module, DLZDHDSO. For 
nonremovable segments (segments required to remain because of existing logical 
relationships), a logical delete bit is set to indicate the status of the segment. 


A work area is obtained from the DL/I buffer pool to maintain the concatenated 
key and position of segments in the data base record(s) being scanned during 
delete or for calls to index maintenance during replace. 


Delete/ Replace Work Space Acquisition and the Work Space Prefix 


DLZDLD0OO0O acquires space to build work area(s) from DLZDBHOO (buffer 
handler) via a PSTGBSPC call. The calculated minimum size required is indicated 
in PSTBYTNM. If the space is available, the buffer handler returns the address of 
the selected buffer in PSTDATA and its size in PSTWRK1. 


The first section of the work space contains a prefix whose format and contents are 
described in Section 5. Immediately following is the work area containing 
information concerning the segment to be deleted (or the index source segment to 
be replaced), its physical data base (HIDAM or HDAM), and other segments in 
that data base record. 


If a second work area is needed because of logically related segments and the space 
remaining in the current work space is large enough, the next work area will be 
allocated in the same work space (buffer) immediately following the previous work 
area. Forward and backward chains are maintained. If the remaining space is not 


large enough, another buffer is obtained from the buffer handler and chained to 


and from the previous work space. 


Except in the case of an error condition, work areas are freed in the reverse order 
in which they were allocated. When the work area freed was the first one in the 
work space, the buffer is freed via a PSTFBSPC call to the buffer handler. 


Segment Delete Codes 


Segment delete codes utilized in the second byte of the prefix of each DL/I 
segment: 


1... .... This segment has been deleted (HISAM only). 
.1.. .... This data base record has been deleted (HISAM only). 
.1. .... This segment has been processed by delete or replace. 
..X .... Reserved 
1... This variable-length segment has its data separated from the prefix. 
.1.. This segment is no longer required by its physical parent. 
.1. This segment is no longer required by its logical parent. 
.1 This segment has been removed from its logical twin chain. 
1111 1111 This segment contains the separated data of a variable-length 
segment. 


Interfaces - DLZDLDO0 
This module interfaces with the following modules: 


DLZDBHOO 
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DLZDHDSO 
DLZRDBLO 
DLZDXMTO 
DLZQUEFO 





Control Blocks - DLZDLDOO0 © 


e Delete workspace prefix 
e Delete work area. 


Entry Register Contents 


R1 Contains the address of the PST 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function module (DFSDLAOO) return point 
R15 Contains the module entry point | | 


Exit Register Contents 
R1 Contains the PST address 
R13 Points to the current save area 


R14 Contains the DL/I analyze call function module (DFSDLAOO) return point 
R15 Contains a return code (0) 


Register Contents on ABEND - in the SCD ABEND Save Area 





R1 PST address 
R2 SCD address 
R3 SDB address 
R4 DMB address 
R5 PSDB address 
R6/R10 Work registers 
R11 Base - (subroutine CSECT) 
R12 Base (main CSECT) 
R13 Current save area 
R14/R15 Work registers 
DLZDDLEO - Load /Insert | fo 
The function of DLZDDLEDO is to load HDAM, HIDAM, Simple HISAM, HISAM, ed 


Simple HSAM, and HSAM data bases (in batch only) and insert segments into 
_ HDAM, HIDAM, Simple HISAM, and HISAM data bases. 


DLZDDLEO is entered from the DL/I call analyzer (DLZDLAOO) on load 
requests for HIDAM, Simple HISAM, HISAM, HSAM, and Simple HSAM 
segments, HDAM dependent segments, and insert requests for Simple HISAM and 
HISAM roots. It is also entered from the retrieve module (DLZDLROO) on load 
requests for HDAM root segments, and insert requests for HDAM, HIDAM, and 
HISAM dependent segments. 


The module performs the following functions: 


A. HDAM/HIDAM load /insert - 





1. Normal segment: 
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e Positioning: retrieve positions for inserting and loading of HDAM 
roots. For all other loading, DLZDDLEDO simulates retrieve 
positioning. 





e Space for new segment is acquired using the space management 
module, DLZDHDSO. 


e The segment is moved from the user’s I/O area to the buffer. 
e Prefix pointers are updated. 

e Actual write is performed by the buffer handler using VSAM. 
e Prefix pointers of twins and parents are updated. 


e The data base logger (DLZRDBLO) is called to write the new segment 
and the updated prefixes. 


( ; e If the segment is an index source segment, index maintenance 
= (DLZDXMTO) is called. 


e Exit is to the call analyzer. 
2. Concatenated segment: 


e If the destination parent already exists, and the insert rule is physical or 
logical: same as normal segment. 


( ; e If the destination parent exists and the insert rule is virtual: the logical 
2 child segment is inserted as for a normal segment, data of destination 
parent are replaced afterwards. 


¢ If the destination parent does not exist and the rule is not physical, the — 
destination parent is inserted as for a normal segment; afterwards the 


logical child is inserted as a normal segment. 


B. HISAM and simple HISAM load 





e Main storage for a logical record for key sequenced data set (KSDS) and 
for entry sequenced data set (ESDS) is acquired from the buffer handler. 


e The root and all dependent segments that fit into one logical record are 
written to the KSDS, using the buffer handler. The remaining dependent 
segments are moved to one or more records of the ESDS. 


e Pointers to those records are inserted. 
C. HISAM and simple HISAM root insert 


e A key equal to or greater than the request is made to the buffer handler. If 
the key exists and the delete bit is flagged (HISAM), the space is reused; . 
otherwise a II status code is returned. If the key does not exist, main 
storage is acquired from the buffer handler and the new record is built and 
then inserted by VSAM through the buffer handler. 





» Old (if deleted) and new records are logged. 
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D. HISAM dependent segment insert 


- If the segment fits into the record for which retrieve (DLZDLROO) has 
positioned, it is inserted by shifting the segments beyond the insert point to 


Wars. Ct 


the right. If the segment does not fit into the record, a new ESDS record is 
built. The segment and shifted data are inserted into the new record. If 
the shifted data does not fit into the record, a second new ESDS record is 


created. 


° Pointers to the new records are created. 


e Old and new records are logged. 


E. HSAM and simple HSAM load 


¢ The I/O areas allocated by batch initialization are used to move the 
segments from the user area. PUT locate is executed, whenever one I/O 
area is filled. 


Blocks and Tables - DLZDDLEO 


PST 

DDIR 
DMB 

PCB 

JCB 

Level table 
SDB 

FDB 

SCD 


Registers on Entry and to All Called Modules 


Ri PST 


Interfaces - DLZDDLEO 


This module calls the following modules: 


DLZRDBLO 
DLZDBHOO 
DLZDHDSO 
DLZDXMTO 
DLZQUEFO 


Data base logger 
Buffer handler 
Space management 
Index maintenance 
Queuing Facility 


Status Codes - DLZDDLEO 


II 
AO 
IX 
LB 
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DLZDXMT1O0 - Index Maintenance 


The function of this module is to load - insert - delete the index pointer segment of 
a HIDAM data base and to load - insert - delete - replace the index pointer 
segment for secondary indexes of a HDAM or HIDAM data base. 





Abbreviations used throughout the module are: 
ISS Index source segment 
XDS Index target segment (indexed segment) 
XNS Index pointer segment (indexing segment) 
The following major functions are performed: 
ALL CALLS 
e Save PST information in XMAINT work area 
( ; LOAD 
call INSERT 
¢ Build index pointer segment in work area 
For primary indexes - take key from user I/O area. For secondary indexes - 
construct segment from SRCH, SUBSEQ and DDATA fields. For /CK fields 
use PCB-key feedback area or read parents of ISS using SDBPOSC or PP 
pointers. Call user suppression routine, if needed. 
( : ¢ Build temporary blocks SDB, JCB, DSG 
INSERT 
* Build call list and SSA 


e Call analyzer 7 
e Take next index relationship of this ISS 


LOAD 
( = e Open data base, if necessary, or work data set 
: e Call buffer handler to write index record or write work data set for secondary 
index 


¢ Take next index relationship of this ISS 

UNLD 

e Write FF-key record to all index data bases belonging to this data base 
DLET 


e Cail buffer handler to get old ISS 

e Construct the old index pointer segment 

¢ For /CK fields take CONCAT key from DLET work area 
e Call user exit routine, to check for suppression . 

¢ Build temporary blocks | 

¢ Log POINTER CHANGE and DEL.BYTE CHANGE 

e Call buffer handler to change index 
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e Take next index entry 


REPL 





— 


e First part = DLET 
e Second part = ISRT 


ALL CALLS 


e Restore PST 
e Return to calling module 


Entries: 


Receives control from DLZDDLEO (load/insert) and DLZDLDOO 
(delete /replace) 


Register Contents | Ao 


R1 ~~ PST address 
R14 Return address 
R15 Start address 


PSTWRK1 LSDB of ISS for ISRT, ASTR, REPL calls 
, | LSDB of ROOT for UNLD call 
PSDB of ISS for DLFT call 


PSTFNCTN ‘AO’ Delete 
‘Al’ Replace 
‘A2’ Insert 
‘A3’ Unload 





PSTBYTNM RBA of index source segment 
Interface to called modules: 


1. DLZDLAOO (analyzer) 
Called for insert, not load mode | _— 


PSTIQPRM points to internal call list 
Segment name*X(keyvalue) is used as SSA 


2. DLZDBHOO (buffer handler) 


~PSTFNCTN: PSTMSPUT load HIDAM index 
PSTBYLCT get index target segment again 
PSTSTLEQ get index pointer segment 
PSTPUTKY index of HIDAM data base 
PSTBFALT update index of HIDAM data base 


PSTBYTNM: RBA of segment 
or 
Pointer to key to be inserted 





3. DLZDLOCO (open/close) 
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DLZDLR0OO - Retrieve 


R2: Address of DDIR 

PSTFNCTN: PSTOCOPN + PSTOCLD + PSTOCDMB 
PSTOCOPN + PSTOCDMB 
PSTOCCLS + PSTOCDMB 


4. DLZRDBLO (logger) 


PSTWRK1: DBLLGDLT (logical delete) 

DBLNDXC + DBLCMC (XMAINT chain maintenance) 
PSTWRK2: Old segment code and old delete byte 

Old RBA pointer 


PSTOFFST: Offset to new segment code 
Offset to new RBA pointer 


PSTBYTNM: RBA of record 
5. DLZDSEHO (work data set module) 


Is called at entry point - 12 to open work file. Return is to BALR if open not 
successful, to BALR + 4 if open successful. 


6. DLZQUEFO (queueing facility) 
Called to do any program isolation queueing necessary 


Exits: 
Back to calling module. 
Control Blocks - DLZDXMT0 


e Index work area - DLZXMTWA 
e SSA for the XMAINT call to the analyzer. 


The DL/I retrieve phase is responsible for retrieval of all segments, independent of 
physical data base organization. When an application program requests the 
retrieval of a segment, this phase (DLZDLROO) gains control from the DL/I call 
analyzer, DLZDLAOO. The analyzer has validity-checked the parameters in the 
application program’s retrieval request. The analyzer has also placed this 
parameter information for retrieval in the DL/I control blocks. 


Based upon this information, the retrieve phase calls the DL/I buffer handler 
module, DLZDBHO0, which controls physical I/O operations, to read the block 
containing the desired segment. Once the desired block exists in the data base 
buffer pool, its presence is made known to the retrieve phase. | 


It is the responsibility of the retrieve phase to “‘deblock”’ segments within the block. 
Once the desired segment is located, the retrieve phase places the location and 
length of the segment in the PST control block associated with the application 
making the retrieve request and returns to the DL/I call analyzer. Once a 
particular segment within a data base is retrieved for a particular application 
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program, “‘position” is established within the data base for the application program. 


This “position” is subsequently used to move sequentially through the data base if 


the application program issues GN and GNP calls. 


If the block containing the segment io be retrieved aiready exists in the data base 
buffer pool, the request from the retrieve phase to the buffer handler results only in 
the address of the desired data being returned to the retrieve phase. No physical 
I/O is performed. In the case of HISAM, if a retrieve request involves inspection 
of several segments within a record, the retrieve phase requests only the first of 
these from the buffer handler and finds the remaining segments itself, utilizing 
position information. Positioning information for each application program and 
each data base is maintained in the DL/I control blocks which are an extension of 
the PCB (that is, JCB, LEVVTAB, and LSDB). | 


In addition to servicing all data base retrieval requests, the retrieve phase performs 
“positioning” functions for all segment insertion. In this case, the retrieve phase 
receives control from the DL/I call analyzer module on an insert call. Prior to the 
insertion of a new segment occurrence, DL/I must insure that the segment does 
not already exist in the data base. It is the responsibility of the retrieve phase to 
retrieve the block where the segment to be inserted may already exist. If the 
segment does not already exist in the data base, the block retrieved is normally 
used for segment insertion. Once the desired physical block is retrieved and 


- positioning for segment insertion within the block is established, control is passed 


to the DL/I load/insert module, DLZDDLEO. If the data base organization is 
Simple HSAM or HSAM, the retrieve phase performs the I/O (Get/Put) rather 
than calling the buffer handler. 


HIDAM root retrieval by key (qualified GU, GN), results in two buffer handling 
requests. The first retrieves the index segment as any HISAM root. The second 
uses the RBA of the HIDAM root in the index segment to get the corresponding 
root segment. The position of the index segment is saved in a special SDB. 


Retrieval of segments addressed by secondary indexes is performed in the same 
manner, as far as possible, as the retrieval of a HIDAM primary root segment. 
(The SDBs are generated so that the index looks like a primary index and the index 
target segment like a HIDAM primary root.) The most important differences are: 


e The layout of the index pointer segment is user dependent and is different from 
that of a primary index. | | 


e The sequence field of a secondary index is not necessarily part of the target 
segment and may be in a dependent segment. 


Variable length segments are handled by the routine VLRT which provides an exit 
to a user routine to handle any necessary data expansion after calling the normal 
buffer handler interface (SETL). 


Retrieval of logically related segments requires special handling. The retrieved 
segment (the concatenated segment) consists of the logical child (that is the 
concatenated key and the intersection data) and the physical or logical parent 
(destination parent). Since the SDBs always reflect the user’s view of the data 
base, the same program logic is used whether the segment to be concatenated to 
the logical child is a physical or a logical parent. The concatenated key of the 
destination parent is constructed using the physical or the logical parent pointer of 
the logical child and the physical parent pointer of the destination parent. For 
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ISRT calls the concatenated key in front of the input data is used to position on the 
destination parent. All positions on the physical path to the destination parent and 
on the twin chain of the destination parent are maintained. 


Command Codes Affecting Retrieval 


D - The segment data is moved when the level table is updated and not at return 
to the analyzer. 


L- The segment skip routine is employed to skip to the last occurrence. 


T- The RBA specified in the SSA is moved to the next position pointer location 
in the appropriate SDB and an unqualified GN is performed. 


F- ForaGN (GNP) call, the same logic is employed to retrieve the first 
occurrence as for a GU call. 


Module Layout - DLZDLROO 


This phase consists of 60 subroutines, a main entry routine (DLZDLRO), a main 
exit routine (DLZDLR1), and a general linkage and maintenance support routine 
(DLZRLNKD), each of which is preceded by a description in the form input - 
processing - output. The subroutines are linked using macro DLZRLNK and the 
following macros (refer to the comments in the DLZRLNK source program 
listing): 


DLZRHDR First macro of a subroutine; generates DSECTs, EQU, and 
module identification. 


DLZRTLR Last macro of a subroutine. 

DLZRCLL Generates code to transfer control to a subroutine using 
DLZRLNK. 

DLZREXT Generates code to return control to a calling subroutine using 
DLZRLNK. 


The phase is supplied as eight modules. The first seven, DLZDLRAO to 
DLZDLRGO, contain the subroutines and the eighth, DLZDLNKD, contains the 
linkage and maintenance support routine that is generated using the macro 
DLZRLNK. The first module, DLZDLRAO, also contains the routines DLZDLRO 
and DLZDLR1. The distribution of the subroutines within the CSECTs contained 
in the modules DLZDLRAO to DLZDLRGO is arbitrary and can be changed at 
will, necessitating only that the affected modules be reassembled. 


Maintenance Support - DLZDLROO 

The module DLZRLNKD contains facilities to dynamically dump control blocks 
and I/O buffer sections. The extent and frequency of the dumping is controlled by 
DLZRLNK macro parameters or control fields in the PST as described in the 
DLZRLNK source program listing. 

Interfaces - DLZDLROO 


This phase interfaces with the following modules: 
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DLZDDLEO Load /insert 
DLZDBHOO Buffer handler 
DLZQUEFO0O Queuing facility 


Entry Register Contents and Return 


RO SCD 

R1 PST 

R2 PCB 

Register Contents During Execution @ 
RO Work 

R1 Work 

R2 Work, PCB 

R3 JCB 

R4 LEVTAB 

RS SDB 

R6 Segment address 
R7 PST 


R8  DSG part of JCB 

R9_ Byte or record location of SEGM in data base 
R10 Work, FLD 

R11 Base register for linkage routine DLZRLNKD 
R12 Base register 

R13 Save area 

R14 Work 

R15 Work 


DLZDHDS0O - HD Space Management 


Module DLZDHDS0 allocates and maintains free space on direct access storage 
devices for storage of DL/I segments in the hierarchical direct organizations 
(HDAM and HIDAM). This space is managed through the use of free space 
elements (FSEs) in each block of each data set of a data base and a bit map. The 
bit map describes blocks that have at least one FSE which can contain the largest 
segment in the data set. There is one bit map per data set consisting of one or 
more blocks distributed over the data set. 


The routines in module DLZDHDS0O perform the following functions: 


| DLZDHDSO contains the entry point for the combined module. It saves 
registers, initializes the work words in the PST, and branches to 
the appropriate module. 


_| GETSPACE consists of a ‘driver’ for all subfunctions that may be invoked to 
find space. It uses one byte of the work space to control 
invocation. This section also controls formatting for HDAM 
when the root anchor point is beyond the current end of the data 
set and formatting of new bit map blocks, if necessary. 


| FRESPACE returns to free space the space occupied by a segment being 


deleted. It logs the deletion of the segment and updates the bit 
map if required. 
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| SRCHBLK 


SRCHPOOL 


SRCHBTMP 


| CALCSRLM 


| BITMPLOC 
BITMPON 


BITMPOFF 


| DEVCHARI 


| FORMAT 


searches the block passed to it for an FSE that satisfies the 
current request. If none is found, control returns to the calling 
module. If the request can be satisfied, the return is directly to 
the invoker of DLZDHDSO. 


searches the DL/I buffer pool for a block in the range passed to 
it. If one is found, module SRCHBLK is called to search it. If 
the block is rejected, the search continues to the end of the pool, 
and control is returned to GETSPACE. To avoid changing the 
position of buffers on the buffer pool use chain, online and batch 
are treated differently. In a batch environment, the buffer to be 
searched is passed to SRCHBLK and may be used without being 
requested from the buffer handler. In a DL/I online 
environment, the buffer is passed to SRCHBLK. If the request 
can be satisfied from it, the buffer is then requested from 
DLZDBHO0 and again passed to SRCHBLK for actual 
alteration. 


searches the bit map for a bit that is a one and is also in the 
specified range. If one is found, its corresponding block number 
is returned to GETSPACE. If all bits are zero, PSTNOSPC is 
returned to GETSPACE. The map search functions include 
creation and formatting of new bit map blocks, if necessary. To 
further proximity of space for related segments, whenever 
possible, the search within a given range is done from the center 
to the outer ends of that range in both directions at the same 
time. 


calculates search limits for GETSPACE. A switch is used to 
determine the appropriate limit - track, control area, delta control 


areas. The limits of the previous scan are used to break the range 


into two subranges. This prevents the re-requesting of blocks 
that were rejected during earlier scans. 


determines the block number for the bit map block appropriate to 


the block number passed to it. It also determines the relative bit 
position in the bit map block of the block number passed to it. 


turns the appropriate bit ON or OFF according to the entry point 
involved. The log is also called to reflect the change. 


tests to see if the device containing the data base is actually an 


-FBA device if it was specified as such, and, if it is, calculates the 


ClIs per track and per cylinder and the scan value in cylinders 
equivalent to the number of FBA blocks specified during DBD 
generation. These values are stored in the DMB for later use. 


formats a new control interval. Builds initial FSEs and root 
anchor points. 


Interfaces - DLZDHDSO 


The following modules are called by DLZDHDSO: 


DLZDBHOO0O Buffer handler 
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DLZRDBLO Data base logger 
Calling Sequence 
Ri PST address 
PSTDSGA DSG address for appropriate file (all calls) 
PSTFNCTN 
PSTGTSPC 01 Get space 
PSTFRSPC 02 Free space 
PSTBTMPF 03 Turn off bit in bit map 
PSTGTRAP 04 Get space close to root anchor point 
PSTRBN RBN of segment to get space close to - PSTGTSPC 
RBN of segment to be deleted - PSTFRSPC 
BBBR - PSTGTRAP | 
where BBB = relative block number, 
R = root anchor point number 
PSTBLKNM Block number whose bit is to be turned off - PSTBTMPF 
RS © DMBPSDB - Address of PSDB of subject segment 
R14 Return point 
R15 Entry point - DLZDHDSO 


On Return 


R15 0 - No errors occurred 
4 - Error has occurred; check PSTRTCDE 


PSTRTCDE 4 - RBN is beyond the end of the data set 
8 - I/O error 
C - No space in data set 
1C - Insufficient space in buffer pool 


For other return codes, see ‘PST - Partition Specification Table” in “‘ Section 5: 
-| Data Areas’’. | | 


DLZDBH00 - DB Buffer Handler 


3-42 


The primary functions of module DLZDBHO0 are: 


1. To satisfy requests for buffer space for the processing of the data blocks of HD 
data bases. For Simple HISAM and HISAM data bases and for the index of 
_ HIDAM data bases, the VSAM buffer management is used. 


2. To issue I/O requests to VSAM whenever data must be read or written. Thus, 
the buffer handler provides an interface between the DL/I action modules and 


VSAM data sets. 


3. Whenever possible, to satisfy requests for data base segments and or records 
from data currently available in its buffer pool without issuing an I/O request. 
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For this purpose, data is retained in the pool as long as possible. Various 
es features such as use chains and alteration flags are employed so that a 
( : centralized buffer management is facilitated for concurrent use by all 
ba application programs. 


The buffer handler satisfies the following requests as indicated by PSTFNCTN: 


1. For processing HDAM, HIDAM, or HISAM ESDS: 


Symbol Hex 
Function Function Description 


PSTBYLCT 02 If the request is issued for an HDAM or HIDAM 
data base, the buffer handler retrieves the control 
interval whose relative byte number is stored in 
PSTBYTNM. The relative byte number in 
PSTBYTNM is first converted to a VSAM 

a control interval number and an offset within the 
( = control interval. 


If this control interval is not in the buffer pool, 
buffer space is obtained in the buffer pool, the 
buffer which will be used is written, and the 
control interval is read into this buffer by a 
VSAM get call. 


If the requested control interval is already in the 
: buffer pool, no read is done and the address of 
( ~~ the buffer containing this control interval is 
Loe passed back to the caller. 


If the request is issued for a HISAM ESDS data 
base, the buffer handler only issues the proper 
VSAM call for retrieving the record identified by 
the RBA which has been passed to the buffer 
handler in PSTBYTNM. 


Bie PSTBKLCT 01 The same as PSTBYLCT for an HDAM or 
( ; HIDAM data base except that a VSAM control 
al interval number is passed to the buffer handler in 
PSTBLKNM. 


PSTBYALT 06 A locate relative byte number (refer to 
PSTBYLCT) is done first and then the buffer 
which contains the contains the control interval is 
marked as altered by this specific user. 
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Function 


PSTBFALT 


PSTGBSPC 


PSTFBSPC 


PSTPGUSR 


PSTBFMPT 


PSTWRITE 


Hex 
Function 


05 


03 


04 


O07 


04 


08 
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Description 


If the request has been issued for an HDAM or 
HIDAM data base, the buffer whose prefix 


address is stored in PSTBUFFA is marked 
altered. 


If, however, the request applies to a HISAM 
ESDS, the proper VSAM call is issued to write 
the record immediately. 


A buffer with the length specified in 
PSTBYTNM (possibly rounded to the next 
multiple of 512 bytes) is provided to the caller. 


A buffer identified by a DMB number, ACB 
number, and control interval number in 
PSTDMBNM, PSTACBNM, and PSTBLKNM is 
freed, that is, it is marked empty and put on the 
bottom of the use chain. 


All the buffers which have been modified by a © 
specific user are written. All nonreusable buffers 
held by this user are marked empty and put to the 
bottom of the use chain. The bit representing 
this user is turned off in the user mask of all 
permanent write error blocks. 


If the purge request is on behalf of a CHKP 
function-call, all DMBs are scanned for index 
data bases and ENDREQs are issued to ensure 
that all VSAM buffers are written to the data 
bases. 


All buffers of one data base or certain buffers of 
a data base are marked empty and put on the 


bottom of the use chain. 


A logical record is added to a HISAM ESDS. 


2. For processing HIDAM index, Simple HISAM or HISAM KSDS: 


a. Accessed by VSAM RBA 
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Symbol Hex 
( Function Function Description 
PSTBYLCT 02 Retrieve the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 
PSTBFALT 05 Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 
PSTERASE 0A Delete the VSAM KSDS record identified by the 
RBA which is in PSTBYTNM. 
b. Accessed by key 
Symbol Hex 
Function Function Description 
_ PSTSTLEQ 09 Retrieve the VSAM KSDS record whose key is 
( ‘ equal to or greater than the key whose address is 
ego | stored in PSTBYTNM. 
PSTGETNX OB Retrieve the next sequential VSAM KSDS 
record. 
PSTSTLBG OC Retrieve the first VSAM KSDS record in a data 
base. 
. PSTPUTKY 0D Insert a record by key directly into a VSAM 
( . KSDS. 
PSTMSPUT OE Insert a record which is in ascending key order 
into a VSAM KSDS. 


The buffers which are used for satisfying these requests are provided by VSAM 
buffer management. The buffer handler provides VSAM control blocks (ACB, 
EXLST, and RPL) to VSAM data management when issuing the required VSAM 
action macro. 


( } The module DLZDBHO0 consists of three CSECTs: 
DLZDBHO0 - Contains the code for the functions 


PSTBYLCT 
PSTBKLCT 
PSTBYALT 
PSTBFALT 
PSTGBSPC 
Maintenance of write chain and use chain 


DLZDBHO2 - Contains the code for the functions 


PSTSTLEQ 
PSTGETNX 
PSTSTLBG 
PSTPUTKY 
PSTMSPUT 





Section 3. Program Organization 3-45 


Licensed Materiali—Property of IBM 


PSTERASE 
~ PSTWRITE 


Additionally, this CSECT contains the code required for preparing and 


issuing of VSAM calis and for processing feedback information by VSAM. 
DLZDBHO3 - Contains code for the functions 


PSTBFMPT 
PSTPGUSR 


In addition, this CSECT contains the subroutines for providing an 
enqueue/dequeue function. 


Write Chain 


The new control intervals of a HIDAM or HDAM data base are chained together 
on a write chain in ascending order of their control interval numbers. If one of the 
buffers on the write chain has to be written, all buffers on the chain are written. 


There is a write chain for every data base. It is maintained by storing the prefix 
numbers of the prefixes of the next higher and the next lower buffers in bytes 18 
and 19 of the prefix. A bit switch in byte 7 of the prefix (X’80’) is on if a buffer is 
on a write chain. 


Use Chain 


All buffers are chained together in the order of their usage. This use chain is 
physically separated from the buffer prefixes and consists of one-byte elements 
containing relative numbers of prefixes. The order of the buffers on the u use chain 
is indicated by the physical order of these use chain elements. 


There is one use chain area per subpool. Each use chain area has a maximum of 32 
entries. The maintenance of the use chain involves putting a use chain element on 
the bottom or on the top of the use chain as follows. The contents of the use chain 
element which is to be moved are saved. Then all use chain elements located 
behind the element to be put on top, or located before the element to be put on the 
bottom, are moved to the address which is one byte lower than the load address (or 
one byte higher if an element is placed at the bottom). The saved element is then 
stored at the top or the bottom of the chain. 


ENQ/DEQ Subroutines 


Since transactions in an online environment may be processed in multi-thread 
mode, the buffer handler may have to synchronize and/or delay requests for 
buffers and/or buffer space. This is accomplished in two subroutines which 
perform ENQ/DEQ type functions. The following fields are used by the 
ENQ/DEQ routine: 
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Function Label Control block 
ENQ/DEQ existing BFFRPST Buffer prefix 
control interval (CI) ID FPSTEXCI _ PST prefix 
ENQ/DEQ pending CI BFFRNPST _ Buffer prefix 
ID PPSTPECI _ PST prefix 
PPSTCHAI PST prefix 
ENQ/DEQ subpool SUBNOFI Subpool information 
SUBNQLA table 
PPSTSUPO = Subpool information 
table 
PST prefix 
ENQ/DEQ matrix BFPLPSIL _ Buffer pool prefix 
BFEPLESIF Buffer pool prefix 
BFPLPSIL Buffer pool prefix 


PPSTMATR PST prefix 


The ENQ/DEQ routines use the field BFPLNOQW1 in the buffer pool prefix as 
work space. 


Normally, the resources to be enqueued are the existing contents of a buffer 
(existing CI ID) or planned contents of a buffer (pending CIID). Under certain 
circumstances, other resources may be enqueued. 

Enqueuing of a resource consists of the following steps. 


If the resource is available: 


1. Store the PST ID into a field of the resource reserved for this purpose (that is, 
BFFRPST, BFFRNPST, SUBNQF1, BFLPSIF). 


2. Store the resource ID (for example, the buffer number) into a field in the PST 
reserved for this purpose (that is, PPSTEXCI, PPSTPECI, PPSTSUPO, 
PPSTMATR). 

3. Indicate successful ENO with a return code of 4 and return to caller. 


If the resource is not available: 


1. Chain with appropriate chain fields the current PST behind the last PST 
already waiting for this resource. 


2. Return with a return code of 8 to indicate that a wait condition exists. 
Dequeuing of a resource consists of the following steps. 

1. Remove the resource ID from the appropriate field in the current PST. 
2. Remove the PST ID from the appropriate field in the resource. 


3. If the PST chain fields indicate that no other PST was waiting on this resource, 
return to caller. 


4. If another PST was waiting on this resource: 


a. Move the waiting PST ID into the resource. 
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b. Post the waiting PSTs and unchain the current PST. 
c. Return to caller. 


For performance reasons, resources contain, in addition to the owning PST’s ID, 
the [ID of the last PST in the wait chain for this resource. These {Ds are aiso 


maintained by the ENQ/DEQ routines. 


The following types of ENQ requests may occur: 


ENQ existing CI ID When a task either wants to write a buffer or wants to 
get posted when reading into or writing a buffer is 
finished. 

ENQ pending CI ID When a task wants to reuse a buffer in the buffer pool 


or when a task wants to get posted when the creation 
of a pending (i.e., new) CI is finished. 


ENQ subpool When there is currently no buffer prefix in a subpool 
allowing a pending CI ID. 


ENQ extension queue When a new block past the VSAM SEOF is created, 
the task must wait until processing of previous tasks 
that created new blocks have been processed. 


Control Blocks - DLZDBH00 


PST 
PPST | 
DDIR 
DMB 
DSG 
SCD 
BFPL 
BFFR 
SBIF 


Interfaces - DLZDBH00 


DLZDBHO0 uses the PST for communication from and to the calling modules and 
for work space. The DSG is used to obtain the DMB number and ACB number of | 
the data set which applies during a request. The address of the buffer pool prefix is 
obtained from the SCD. The address of the buffer prefix area is obtained from the 
buffer pool prefix. VSAM is invoked for all I/O. 


In order to make sure that writing of log information is always ahead of updating a 
data base, the buffer handler may branch to a specific entry point of DLZRDBLO 
or DLZRDBL1. (Refer to the description in the paragraph about DLZRDBLO and 
DLZRDBL1.) 


DLZDBHO0 issues the RELPAG macro for buffers that are marked empty. 


_ Buffer Handler Functions and Required Fields 


The following chart illustrates which fields must be supplied to the buffer handler 
(input) for each specific function and which fields are filled in by the buffer 
handler (output) on completion of the function. 
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1. Functions used to access a HIDAM or HDAM data base 


pimps Output 
| fied | Contents |e 


PSTBYLCT PSTBYTNM Relative byte number of desired segment |PSTDATA Core address of desired segment 


PSTOFFST Offset of segment from beginning of 
control interval 


PSTBKLCT PSTBLKNM RBA of desired segment PSTDATA Core address of desired segment 
PSTBYALT See PSTBYLCT See PSTBYLCT 


PSTBFALT PSTBUFFA Address of buffer prefix which is to be 
marked altered 


PSTGBSPC PSTBYTNM Number of desired bytes Address of provided buffer 


PSTFBSPC/ PSTDMBNM 
PSTBFMPT PSTACBNM 
PSTBLKNM Control interval RBA 


All or part of buffer identifier may be 
processed. 


{PSTPGUSR PSTDMBNM {DMB 
PSTACBNM ACB 
PSTBLKNM 
PPSTID 


Control interval RBA User identifier Any 
or all of these may be passed. 


2. Functions used to access a HISAM ESDS 


[rita | Contents | ict | Contentg 


PSTBYTNM PSTDATA Address of the record within the buffer 


PSTBYTNM 
PSTDATA 





PSTBYLCT 
PSTBFALT 
PSTWRITE 









RBA of the logical record to be read 
RBA of the logical record to be written 
Address of work area containing the 
logical record 
Prefix Address 





























RBA of the record added to the ESDS 
as calculated by VSAM 


PSTBLKNM 






PSTBUFFA 


3. Functions used to access a KSDS by key (Simple HISAM, HISAM or HIDAM 
index) 


| Fitd | Contents | Fiets ~—|Contents 


PSTBYTNM PSTBYTNM 





PSTSTLEQ 





Address of the field which contains 
search argument 


RBA of the logical record retrieved 






























PSTDATA 
PSTBYTNM 
PSTDATA 

PSTBYTNM 
PSTDATA 


Core address of record 
RBA of the logical record retrieved 
Core address of record 
RBA of the logical record retrieved 










PSTSTLBG 





PSTGETNX 
Core address of record 








PSTPUTKY Address of work area 

containing the logical 
record 
Prefix address 
Address of work area containing the 
logical record . 


Prefix address 
















PSTBUFFA 
PSTDATA 





PSTMSPUT 












PSTBUFFA 
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4. Functions used to access a KSDS by RBA (HISAM or HIDAM index) 


Function ‘4. 


- Contents 


PSTBYLCT RBA of the logical record to be retrieved |PSTDATA | Address of the record within the buffer 


PSTBFALT RBA of the logical record to be written 
| Address of record within the buffer 
PSTERASE RBA of the logical record to be erased 





Calling Sequence 


RO SCD address 
R1 PST address 
R14 Return address to caller 
R15 Address of DLZDBHOO 


Fields Required (Independent of Function) (fe aN 
~ 


PSTFNCTN Hexadecimal code for desired function 


PSTDSGA Address of associated DSG needed for: PSTBYLCT, | 
PSTBKLCT, PSTBYALT | 


PSTBLKNM Identification of desired block needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC 


PSTDMBNM Number of associated DMB needed for: PSTBKLCT, a 
PSTBFALT, PSTFBSPC, PSTGBSPC Vy 


PSTACBNM Number of associated ACB needed for: PSTBKLCT, 
| PSTBFALT, PSTFBSPC, PSTGBSPC 


PSTBYTNM PSTBYLCT/PSTBYALT - relative byte address of desired 
segment - relative record number of HISAM ESDS (high-order 
byte = X‘80’) 
PSTGBSPC - fullword size of requested space ” fe ’\ 


PSTBUFFA Address of buffer prefix for block to be marked ‘altered’ - 
PSTBFALT 


DSGDMBNO DMB number of the referenced data base 
DSGDCBNO ACB number of the referenced data set 
On Return 


R15 O Request satisfied 
_ 4 Warning or error condition 


Fields Returned (Independent of Function) 


- PSTOFFST Offset from PSTDATA back to first byte of block 





PSTDMBNM DMB number 
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PSTACBNM 


PSTDATA 


PSTBUFFA 


PSTNUMR 


PSTNUMWT 


PSTCLRWT 


PSTRTCDE 


Return 
Code 


Function 
PSTCLOK 


PSTGTDS 


PSTIOERR 


PSTNOSPC 


PSTBDCAL 


PSTNOTFD 


PSTNWBLK 


PSTNPLSP 


ACB number 


Address of first byte of requested segment, record, or space 


Address of buffer prefix 


Number of reads done during this call 


Number of writes done during this call 


Bit 0 - This caller waited during request 
Bits 1-8 - Reserved 


Hex 


Function 
00 


04 


08 


OC 


10 


14 


18 


1C 


Description 
No error occurred during this request. 


Record, CI, or segment requested is more than 
one CI beyond the end of the data set - returned 
on PSTBKLCT, PSTBYLCT, PSTBYALT 


Requested CI, record, or segment could not be 
read successfully on a PSTBKLCT, PSTBYLCT, 
or PSTBYALT call or could not be written 
successfully on a PSTPUTKY, PSTMSPUT, 
PSTWRITE, or PSTBFALT call. 


An out of space condition occurred on the data 
set DASD while processing this request. 


The byte at PSTFNCTN is not a valid function or 
the DMB/ACB/BLKID in the PST do not match 
corresponding fields pointed to in PSTBUFFA 
for a PSTBFALT call. 


A PSTSTLEQ call has been issued for a record 
whose key is higher than the highest key in the 
data set. 


The requested CI, record, or segment will go in 


the CI, one greater than the current end of the 
data set. Space has been allocated in the pool to 
hold the new CI. The address is at PSTDATA. 


The pool does not contain enough space to 
satisfy the request. 
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Return 
Code Hex 
Function Function Description 
~ PSTWROSI 20 A request (GBSPC) was issued for a buffer size 
| which exceeds the highest buffer size handled by 
any subpool. 

PSTENDDA 24 The end of data set has been reached on a 
PSTGETNX call. 

PSTBYEND -— 28 A request has been issued with a key or RBA 
higher than the highest key or RBA in the data 
set. 

PSTEOD 2C End of data set has been reached on a request by 
DLZDLOCO. 

PSTINLD 34 Invalid request during data set loading. 


DLZRDBLO - DB Logger 


The data base logger module logs the modifications made to a data base. These 
data base log records are written to the system log. This module is invoked by 
several of the DL/I modules associated with data base modifications. 


The logging of data base modifications, additions, and deletions is done on a 
physical basis to facilitate a quick recovery procedure. Only calls that actually 
cause a change to be made to a data base are logged. Two sets of information are 
logged for each modification - a before set and an after set. 


The before information is that required by the data base backout utility. It is used 
to back out a partially completed update series and to restore a data base to some 
prior point in time. . 


The after information is that required by the data base recovery routines to restore 
the data base from a previous backup copy. 


There are five basic types of data base log records. 


1. POINTER maintenance record 7 
When a segment is deleted or inserted and it causes a change in any of the 
pointers in other segments, each pointer is logged separate ly as a POINTER 
maintenance record. A-POINTER maintenance record is indicated by bits 1, 
2, and 3 of the DLOGFLG72 field of the log record being set to zero. 


2. PHYSICAL INSERT record | 
When a segment is physically added to the data base, a PHYSICAL INSERT 
record is written. This type of record is indicated by a one in bit 1 of the 
DLOGFLG72 field. | 


3. PHYSICAL DELETE record 
When a segment is physically removed from the data base, a PHYSICAL 
DELETE record is written. This type of record is indicated by a one in bit 2 of 
the DLOGFLG72 field. 
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4. PHYSICAL REPLACE record 
When a segment in a data base is modified, a PHYSICAL REPLACE record is 
written. This type of record is indicated by a one in bit 3 of the DLOGFLG2 
field. 


5. LOGICAL DELETE record 
When a DLET call is issued but the segment is not physically removed from 
the data base, a LOGICAL DELETE record is written. Only the segment 
code and delete bytes are logged. A logical delete record is indicated by bits 1 
and 2 of the DLOGFLG2? field being set to a one. 


In addition to data base log records, the data base logger module also uses: 


e Application program termination records 
e Application program scheduling records 
¢ File open records 

e Checkpoint records 


The layout for these records is shown in Section 5 of this manual. 


Record types 1, 2, 3, and 5 contain the before and after information in the same 
record and have a log code of X‘50’. Type 4 requires two records. The after 
record has a log code of X‘50’; the before record has a log code of X‘51’. 
Additionally, if a physical insert reuses space of a deleted record, log records X‘50’ 
and X‘51’ are written. 


If the change is an insert or a delete, the before and after are part of the same 
record. On an insert, the new segment, including the prefix, is logged as the change 
data. On a delete, the old segment and prefix are the change data. In HD, both 
insert and delete cause changes to the free space elements (FSEs) within a block. 
The new FSEs and their offsets are logged following the change data and a count 
of the changes is place d in bits 4 through 7 of the DLOGFLGI field. 


The information needed to create the log record is retrieved from the various DL/I 
blocks. A small amount of additional information is passed as parameters from the 
DL/I action modules. 


The data base log tape format is undefined records (UNDEF). The block size is 
1024 bytes. Maximum record length is 512 bytes. If a segment cannot be logged 
into one record, it is internally spanned over two or more log records. The first 
record is logged with a data length adjusted to match the data it contains. The 
offset for the second record is incremented by the length of the first, and the 
second is written as a separate segment. The adjusting of data length and offset 
continues until the entire segment is written. 


The data base disk log uses VSAM with a CI size of 1024. The user buffer facility 
is used to ensure that the log records are written immediately. The disk log record 
format is compatible with the tape iog record. 


Control Blocks - DLZRDBLO 
e Data base log record 
¢ Application program termination record 


e Application program scheduling record 
e File open record. 
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Register Contents 


R1 ‘PST address 
R13 Save area 


Ri4 Return address 
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R15 Entry point address. 


High-order byte of PSTWRK1 field in PST: 


Bit —— ~Value 
0 1 
1-3 000 
001 
010 
100 
110 
111 
4 1 
5 0 
1 
6 1 
7 1 
4&6 1-1 
PSTWRK1 


_ Definition 


Index maintenance call 
Chain maintenance call 
Physical replace 

Physical delete 

Physical insert 

Logical delete 

Reserved 

Last change for this user call 
One FSE (physical delete or insert) 
Two FSEs 

Old copy of physical replace 
New block log call 

No data - end of user call 


Physical SDB address (except new block call) 


Data length (low halfword) if new block call 


PSTWRK2, 
-PSTWRK3, 
PSTWRK4 


Old data on pointer maintenance and logical delete calls. FSE data 


on physical insert and delete calls. 


Before a data base block is updated (that is, before the buffer handler issues the 
_ put for an updated block), the associated log information is first written to the log 
tape or disk in the following manner. 


After issuing a put to write a log block to the log tape or disk, the log module 
updates the count of written log blocks in the field SCDLOCOU. 


When the log module processes a log call, in which a data base buffer is involved, 
the current count of written log records is stored from SCDLOCOU into byte 7 of 
the buffer prefix in the case of HD, or into the field DMBACBLC in the ACB 
extension in the case of HISAM and HIDAM index. 


Before issuing any put for updating a data base block, the buffer handler compares 
the value stored in the buffer prefix (HD) or in the ACB extension (HISAM, 
HIDAM INDEX) with the current value in SCDLOCOU. If the two values are 
unequal, the log information associated with the data base update has already been 
written out. If the two values, however, are equal, the buffer handler branches to 
entry point WRIAHEAD of DLZRDBLO to force the current contents of the log 
I/O area to be written out immediately. If, however, asynchronous logging was 
requested by the user, the count comparison is bypassed, that is, no 'write ahead" 


logging takes place. 
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Logging in the Online System 


( In the online system the put for the log blocks is issued in a separate, asynchronous 
| subtask, which is attached at system initialization time. This subtask is a separate 
CSECT within the log module DLZRDBLO. 


The purpose for this is to avoid losing tasks when the end of volume condition is 
encountered on the log tape. 


The communication between the asynchronous log subtask, the logger, DL/I online 
nucleus (DLZODP) is achieved by using three ECBs as follows: 


1. System ECB (SCDESECB, in SCD extension), which is used for the 
communication between the log module (DLZRDBLO) and DLZODP. 


2. Log I/O ECB (SCDELECB, in the SCD extension), which is used for the 
communication between the log module and the asynchronous log subtask. 


( * 3. Private ECB (fullword in the log subtask CSECT), which is used for the 
ao communication between the asynchronous log subtask and the log module 
during the end of the I/O operation that was initiated by the log subtask. 


Figure 3-2 shows the events which take place when a PUT for a log block becomes 
necessary in an online environment. 


Logger DLZRDBLO Asynchronous Log Subtask | 
ONLLOGWR (CSECT. Name) 


| wang on 
Log 1/0 ECB 















. Lock System ECB > SCOSystem ECB 







. Unpost Private ECB 


. Post Log 1/O ECB 







. IWAIT on Private ECB 







. Prepare PUT 






. Issue PUT 







. Post Private ECB 






. Unpost Log I/O ECB 






Wait on 
Log |1/O ECB 







10. Post System ECB 






3 System ECB 





Figure 3-2. Online Log Block Put Operation 
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The relationship between all modules involved in the asynchronous log writing is as 
follows: 


| | | | DLZODP | | DLZOLIO00 | DLZRDBLO | ONLLOGWR | 


PRH 





Scheduler Routine 
Terminate Routine — 
Message Routine 
IWAIT Routine 
EXCPAD Routine 










| System ECB | Checks system ECB, if 


LOG subtask is active: 


When PUT has to 
be issued, unpost 
system ECB 


















1. Before a call is 
processed (PRH 
branches to analyzer 










































2. When a log request After log subtask is on; 
will be issued finished, post an 
3. Before branching system ECB oe 
back into a task after 
control was given up 
Attach When PUT has to Waiting on log 
asynchronous | be issued, post log I/O ECB 
log subtask I/O ECB, get log --- 
subtask started After put is 
finished, unpost so 
log I/O ECB ‘1 y 





Private ECB When put has to be 
issued, lock private 
ECB (I/O is active) 
IWAIT on private 


ECB : 


After put, posts 
private ECB 









DLZRDBLI - CICS/VS Journal Logger 





Logging in the online system can also be done by using the journaling feature of 
CICS/VS. That means the DL/I log information as described about module 
DLZRDBLO will go on the same file as any CICS/VS journal information. 


This is possible because CICS/VS uses different journal record IDs than DL/I 
(DL/I uses X‘07’, X‘08’, X‘2F’, X‘50’, X‘51’). Any DL/I utility which uses a 
journal tape will check the record ID and process only those records, which have 
record IDs used by DL/I. | 


The general structure of DL/I log records, CICS/VS journal records and 
CICS/VS journal blocks are illustrated in Section 5. 


If the user requests logging by CICS/VS journaling (UPSI bits 6 and 7 = 0), 
DLZOLIO0 loads module DLZRDBL1 instead of the standard log module 
DLZRDBLO. This module provides the following services: _ 





¢« Build and write open records for each data base that has been opened. 
DFHJC TYPE=WRITE is issued to CICS/VS. 
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¢ Build and write log records on request by the action modules. DFHJC 
C TYPE=WRITE is issued. 


e Write log records built by the sched/term. routine. DFHJC TYPE=WRITE is 
issued. 


¢ Initiate a physical put to the journal tape on request of the buffer handler. 
DFHJC TYPE=WAIT is issued. 


Before a journal call is issued to CICS/VS, DLZRDBL1 checks if the task which is 
going to write a journal record already owns a JCA. If it does not, a GET JCA call 
is issued prior to issuing the DFHJC call. 


Since DLZRDBL1 is not reentrant, no task can be allowed to enter this module 
while log I/O is being processed. 


DLZRDBL1 unposts an ECB (SCDESECB) prior to any physical I/O. In various 
os parts of DLZODP this ECB is checked, and, if it is locked, a CICS/VS wait is 
/ issued before control is passed to any action module. 


When log information is written by using CICS/VS journaling, the writing of log 
information is always ahead of updating the associated data base blocks. The 
scheme used is the same as with standard logging, the only difference being that the 
value for the number of written journal blocks (CICS/VS ECN) is not manipulated 
by the log module but is taken out of the JCT. 


Control Blocks Addressed 


( @ e Data base log record 
- e Application program termination record 
« Application program scheduling record 
e File open record 


DLZQUEFO - Queuing Facility 


The DL/I queuing facility module provides resource contention control EERE MEIVENY 
for the requirements of program isolation (PI). 


( Z Program isolation supports resource contention control at the segment level (for 
~ | HDAM/HIDAM data bases) and at the record level (for HISAM data base). 
Module DLZQUEFO provides the control through enqueue/dequeue mechanisms 
using a unique 7-byte resource identifier: | 


Bytes 1-4 a relative byte address (RBA) associated with the resource 
Bytes 5-6 the DMB number 

Byte 7— the ACB number 
The RBAs used are: 


For segment level resources - RBA of the segment 
For record level resources - RBA+1 of the root segment 


For variable length segments where data separation has occurred, the segment is 
considered a single entity with an ID based on the RBA of the prefix. : 





Section 3. Program Organization 3-57 


Licensed Material—Property of IBM 


The queuing facility module will automatically update the RBA portion of the 
resource ID in the event of a VSAM CI or CA split (HISAM only). The module 
also contains a deadlock detection routine and will resolve the deadlock by 
terminating one of the tasks involved. 





Three basic control blocks are used to accomplish the enqueue/dequeue function: 


1. PST/PPST - used to identify the task. 

2. RDB - used to describe a particular resource. 

3. RRD - used to describe a particular task’s request (either satisfied or pending) 
for a resource. 


As shown in Figure 3-3 on page 3-59, the RDBs are chained together, both 
forward and backward, to one of several queue heads located in the QWA (queuing 
facility work area). Note that the queue heads have only a forward pointer. The _ 
proper queue head is determined by hashing the resource ID and using the results 

as an index to the table of queue headers. 


a 


There is one RDB for each resource, no matter how many tasks (maximum of 255) < yf 


have enqueued it. The RRBs are forward and backward chained on two queues, 
one from the RDB and one from the PST for the requesting task. There is one 
RRD for each resource a task has or is requesting. 


On entry to module DLZQUEFO, register 1 contains the PST address and register 
15 contains the entry point address (high-order byte contains ‘FLAG’ if specified). 
The function requested (enqueue, dequeue, verify, or purge) is contained in the 
PSTFNCTN field of the PST. If the requested function is enqueue, dequeue, or 
verify, the PSTQLEV and PSTWRK2 fields also are initialized in the PST. These 
fields contain the queue request level (read-only, update, or exclusive) and the 
address of the resource ID, respectively. See Appendix D for the macros used to 
request a specific function. 





Enqueue and verify function are essentially the same and are, therefore, processed by 
the same routines. The only difference between them is that the user is not the 
owner of the resource at the return from a verify request. 


Three conditions can be present for the processing of the enqueue and verify 

function: , nm * 

| oe, 

1. The resource is not currently enqueued (no RDB exists) and is therefore, 
available. In this case, if the requested function is enqueue, the user is queued 
as owning the resource and control is returned to the caller. If the requested 
function is verify, processing is complete. 


2. The resource is currently enqueued, but is available at the requested level. In 
this case, if the request was for an enqueue, the user is queued as an owner at 
that level and control is returned to the caller. 


3. The resource is not available. In this case the user is queued as waiting for the 
resource, deadlock detection is performed, and a WAIT is issued pending the 
availability of the resource. 


When the wait is satisfied and if the request was for an enqueue, control is 
returned to the user. If, however, the request was for a verify, the user is first 
dequeued (see dequeue function) as owner of the specified level before he is 
given control. | 
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Dequeue function processing first determines if the resource is currently owned by 
the requestor. If it is not, the request is ignored. If it is, the enqueue count at the 
specified level is decremented. If all levels are now zero, task ownership is 
relinquished, and any waiting tasks that may now own the resource are promoted. 
If FLAG was specified, it is set for all waiting tasks. 


If the enqueue count goes to zero and it was the highest level, but lower levels still 
exist, the ownership level is lowered and any waiting tasks that may now own the 
resource are promoted. 


Purge function processing searches the chain of RRDs queued off the specified PST 
for a task and unconditionally relinquishes ownership for all resources encountered. 


Any waiting tasks that may now own the resource are promoted. 


On return from module DLZQUEFO, return codes are set in register 15 and in the 
PSTRTCDE in the PST. 


RDB1 RDB2 | RDB3 


— | eh 


PST2 


Figure 3-3. Enqueue/Dequeue Control Block Relationships 


The following table identifies the mainline routines and the functional subroutines 
of the queuing facility module: 
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Mainline Routines 
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Routine Function 
QENQDEQ Common Entry Logic 
QRETURN Common Exit Logic 
QENOVER ~ Enqueue/Verify Mainline 
QNRENQ New Resource Enqueue/ Verify 
QERENQ Existing Resource Enqueue/Verify 
QREENQ Re-enqueue or Verify of Resource Already Owned 
QDEQ Dequeue Mainline 
QDEQVER _ _— Dequeue Specific RRD 
QRELRSC __ Relinquish Ownership of Resource 
QPUR Dequeue all Resource for a Task 
~ DLZJRNAD Update Routine for RBA on CI or CA Split 
Functional Subroutines 
Routine Function 
QLOCRDB Locate RDB or Position on Chain 
QLOCRRD Locate RRD or Position on Chain 
QBLDRDB Build, Initialize, and Chain RDB 
QBLDRRD Build, Initialize, and Chain RRD 
QUCFRDB Unchain and Free RDB 
QDASOWN Define Task as Owner of Resource 
QWAIT Wait for Ownership of Resource 
QLOCNPO Locate New Prime Owner 
QPNOWCM Promote New Owners, Do Wait Chain Updates 
QPFLAGP Pass Flag Parameters To Waiting Tasks 
QDLKDTN Detect and Resolve Deadlocks 
QDLKRSV Resolve Deadlocks | 
QGETBLK Get 24-Byte Block from Free Chain 
QRETBLK Return 24-Byte Block from Free Chain 
Data Areas Used 
SCD 
PPST 
PST 
RDB 
RRD 
QWA 
Entry Points 
QENQDEQ General entry point for request to enqueue, dequeue, or verify a 
resource, or to purge enqueues for a task. 
DLZJRNAD Entry point to update the RBA portion of any resource IDs as 


required due to data movement during a VSAM CI or CA split 
(HISAM only). 


ee os 














Licensed Material—Property of IBM 


DLZCPY1O0 - Field Level Sensitivity Copy 


MPS Control Modules 


DLZCPY10 has two CSECTs: DLZCPY10 and DLZSEGCV. 


The function of DLZCPY10 is to map the user view of a segment into its physical 
view for DL/I ISRT and REPL calls, in support of field level sensitivity. On a path 
call, DLZCPY10 maps the segment at each level of the path. If a level in the path 
is not field sensitive, the segment at that level is moved without modification. 
DLZCPY 10 is invoked by Call Analyzer (DLZDLAOO). 


The function of DLZSEGCYV is to convert a segment from either the physical view 
to the user view, or the user view to the physical view. DLZSEGCV is invoked by 
DLZCPY10 to convert ISRT and REPL calls from user view to physical view. 
DLZSEGCYV is invoked by Retrieve (DLZDLROO) to convert Get calls from 
physical view to user view. DLZSEGCYV is also invoked by Retrieve to convert 
SSA values from user view to physical view. 
Interfaces - DLZCPY10 
This module interfaces with the following module: 

DLZDBHOO 
Entry Register Contents 


R1 PST address (DLZCPY10) 
FER address (DLZSEGCV) 


R5 SDB address (DLZSEGCV) 
R13 Save area address 
R14 Return address 


R15 Entry point address (DLZCPY10) 
Addr(DLZCPY10)+4 - (DLZSEGCV) 


Control Blocks - DLZCPY10 


SDB PSB 
SDB Exp. PCB 
FSB JCB 
FER LEV 
FERT PSDB 
PST FDB 
SCD SEC 
PDIR DDIR 


DLZMSTRO - Start MPS Transaction 


This module is invoked by the user via a specific transaction code (CSDA) to start 
multiple partition support (MPS). The functions of this module are to: 
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e Check if the DL/I nucleus is loaded. 
e Check if MPS is already active. 
e Attach the master partition controller (DLZMPCOO0O). 





Control Blocks Addressed 


CSA-Common System Area (CICS/VS) 
SCD-System Contents Directory 


Register Contents 


R13 Contains CSA address 
DLZMPC00 - Master Partition Controller (MPC) 


The master partition controller (MPC) is attached by the start transaction module 
(DLZMSTRO). | 


The functions performed by the master partition controller are: ( 
¢ Initialize the MPC partition table (DLZMPCPT). 
e Define some of the XECBs required for cross partition communication. 


» Perform some management of CICS/VS temporary storage queue (TSQ) 
entries for MPS batch jobs using MPS Restart. 


-e Process all start batch partition controller (BPC) requests and attach a BPC for 
a specific batch partition. 





¢ Process all stop partition requests. 
e Process the abend condition if the batch partition controller attach fails. 
e Process the stop transaction request to terminate MPS. 


¢« Return control to CICS/VS after all activity is completed. 





Control Blocks Addressed 
MPCPT MPC Partition Table 
SYSCOM System Communication Region 


CSA Common System Area (CICS/VS) 
SCD System Contents Directory 
MPCECBLT CICS ECB Pointer List 

TCA Task Control Area 

DCA Dispatch Control Area 


DLZTSQE Temporary Storage Queue Entry 
| DLZXCB1 —_— Batch Communication Area 


Register Contents 


RI2 Contains TCA address (at entry) 
RI3. ~=Contains CSA address (at entry) 
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Macros Used 

( _ DFHKC TYPE=WAIT 

= DFHKC TYPE=ATTACH 
DFHPC TYPE=ABEND 
DFHPC TYPE=SETXIT 
DFHPC TYPE=RETURN 
DFHSP TYPE=USER 
DFHTS TYPE=GETO 
DFHTS . TYPE=PUTO 
DFHTS TYPE=PURGE 


XECBTAB TYPE=CHECK 
XECBTAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XPOST 


DLZBPCO00 - Batch Partition Controller (BPC) 


(_ The batch partition controller (BPC) is attached by the master partition controller 
7 (MPC) when a start request has been made by a batch partition. The functions 
performed by the batch partition controller are: 
¢ Define XECB for cross partition communication with the MPS batch 
initialization (DLZMINIT), MPS batch program request handler (DLZMPRH), 
~ and MPS batch termination (DLZMTERM). 
e Issue the DL/I scheduling call on behalf of the batch partition. 
( e Process all DL/I calls on behalf of the batch partition. 


¢ Update temporary storage queue entry for MPS Restart if the batch partition 
issues a combined checkpoint. | 


« Process ABEND conditions occurring in the batch partition. 
e Return control to CICS/VS for normal and abnormal conditions 


This module must be link-edited with the language interface module, DLZLIOOO. 


( = Control Blocks Addressed 
MPCPT MPC Partition Table 
TCA Transaction Control Area 
TWA Transaction Work Area 
PST Partition Specification Table 
PPST Prefix PST 


DLZXCB1 —~—_— Batch Communication Area 
DLZTSQE Temporary Storage Queue Entry 


Register Contents 


RI2 Contains TCA address (at entry) 
R13 +Contains CSA address (at entry) 
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Macros Used 
| DFHKC —‘ TYPE=WAIT | -_ 
| DFHPC § TYPE=RETURN ra, 
| DFHPC = TYPE=ABEND 
| DFHPC TYPE=SETXIT 

DFHTS TYPE=PUTO 


XECBTAB TYPE=CHECK 
XECBTAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XPOST 


DLZMPI00 - MPS Batch 


The MPS batch module is made up of the following five routines: 


1. MPS Batch Initialization (DLZMINIT) 

2. MPS Batch Termination (DLZMTERM) | 

3. MPS Batch Program Request Handler (DLZMPRH) fo 
4. MPS Batch Abend (DLZMABND) Me ee 
5. 


MPS Batch Message Writer (DLZMMSG) 
A separate description for each routine is given in the following text. 
MPS Batch Initialization - DLZMINIT 


This is one of five routines that make up module DLZMPIO0 to support the batch 
part of MPS. 





DLZMINIT reads the input parameter statement and checks it for validity. It then 
loads the user’s program. Next, it determines what to use as a partition identifier 
by checking the PIK in the COMREG. This value is used in online messages. The 
value for ‘n’ in XECB names is found in the partition table entry pointed to in the 
area following XECB DLZXCBO2, and is put into each XECBTAB macro issued. 


After saving the program name and PSB name for use by online, an XECB, 

DLZXCBnl, is defined in the batch partition for communicating with the online 
partition. The online partition XECB, DLZXCBO2, is XPOSTed. This lets the 
online partition know that there is an MPS batch job ready to run. 


When the online partition completes its initialization, the batch routine sets up — 
STXIT routines, finishes other initialization activities, and goes to the user 


program. 


DLZMINIT is entered by DOS/VS job control at the start of the job. 


Control Blocks Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST _ Partition Specification Table 

COMREG —= Communication Region 

XCBI XECB DLZXCBnl and data following it 


DTFs for SYSLST, SYSLOG, and SYSIPT 
STXIT AB Savearea 
STXIT PC Savearea 
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XECBs DLZXCB02, DLZXCBn2, DLZXCBn3 
. PDIR- - PSB Directory 
( o PSB Program Specification Block 
is PCB Program Control Block 


DLZEIPL HLPI Control Block 
Register Contents (at Entry to Other Routines) 
e User Program 


RI ~~ PCB list if not PL/I; or a pointer to a list containing the following if 
PL/I: 
- address of PCB list 
- address of location containing size of dynamic storage 
- address of start of dynamic storage 
R13 ~=Save area 
Rl4 Return address 
RIS Entry address 


( = e Message Writer (DLZMMSG) 
R14 Return Address 
« ABEND Routine (DLZMABND) 
No special register values 
Macros Used 


C XECBTAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XECBTAB TYPE=CHECK 
XPOST 

XWAIT 

OPEN 

CLOSE 

EXTRACT 


- GETIME 


- GETVIS 
PUT 
CANCEL 
STXIT PC 
STXIT AB 
MVCOM 
COMRG 
LOAD 
LOCK 
UNLOCK 


MPS Batch Termination - DLZMTERM 


This is one of five routines that make up module DLZMPIOO to support the batch 


¢ me part of MPS. 
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The MPS batch termination routine is entered when the user program finishes. It 
tells the online partition to do termination activity, deletes its own XECB, and ends 
the job. | | | 





Control Biocks Addressed 


XCBI XECB DLZXCBnl and the data following it 
Register Contents 


Registers have the same values at entry as when MPS batch initialization 
(DLZMINIT) completed. | 


Macros Used 


XPOST 

XWAIT 

EOJ | 
LOCK | _ 
UNLOCK (> 
XECBTAB TYPE=DELETE ) e 


MPS Batch Program Request Handler - DLZMPRH 


This is one of five routines that make up module DLZMPIO0 to support the batch 
part of MPS. 


The MPS batch program request handler routine is entered on each call to DL/I 
made by the user program. The user call list is validated and set up for the online a 
partition to use. Then the online partition is notified by an XPOST of XECB ue 
DLZXCBN2. When the call is complete, data is moved to the user’s I/O area. 








Control Blocks Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 
PST Partition Specification Table 
XCBI XECB DLZXCBI 
DLZEIPL HLPI Control Block 

PCB Program Control Block 
Register Contents 

e At entry: 


RO Bit X‘01’ ON if PL/I, OFF if not PL/I 
Bit X‘02’ ON if HLPI, OFF if call interface 

RI If PL/I, points to list of pointers to parameters; if not PL/I, points to list 
of parameters 

R13. Save area 

R14 Return address 

RIS Entry address 


e Message Writer (DLZMMSG) 





R14 = Return address 
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Macros Used 


GETFLD 

STXIT PC 

XPOST 

XWAIT 

XECBTAB TYPE=CHECK 


MPS Batch ABEND - DLZMABND 


This is one of five routines that make up module DLZMPIO0O to support the batch 
part of MPS. 


The MPS batch abend routine has four entries: 


1. External routine 
2. PC STXIT 

3. ABSTXIT 

4, 


Other MPS batch routines that cause abnormal termination. 


The first entry initializes registers and then joins the main path. The next two each 
identify which way the ABEND routine was entered. They then issue an error 
message. Then the fourth entry joins them as the online partition is notified. All 
entries delete the batch XECB and cancel or dump. 


When an abnormal termination situation has occurred, DLZMABND is entered by: 


e DLZMINIT 

« DLZMTERM 

e DLZMPRH 
Control Block Addressed 


STXIT AB Save area 
STXIT PC Save area 


Register Contents 
« Atentry 

No special values except base registers initialized 
« Message Writer (DLZMMSG) 


R14 Return address 


Exits 


JDUMP If dump requested 
CANCEL If no dump requested 


Entry Points 

External routine Abnormal end for separately assembled routine 
STXIT AB If abnormal end entered by DOS/VS | 
STXIT PC If program check determined by DOS/VS 
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XPOST Entry Other abnormal end when BPC must be notified 


Macros Used 


DLZIDUMP 


B/D DD 


LOCK 
UNLOCK 
~ XPOST 
XECBTAB TYPE=DELETE ~ 
JDUMP 
CANCEL 


MPS Batch Message Writer - DLZMMSG 


This is one of five routines that make up module DLZMPIO0O to support the batch 
part of MPS. 


There are two entries: 


e From external routines 
e From routines within DLZMPIOO 


The MPS batch message writer routine handles all messages issued by the MPS — 
batch partition. At entry, a parameter list is set up. The first parameter is always a 
pointer to the message number. Other parameters, if any, are as needed for the 
message. | 


When a message is to be written to SYSLOG and/or SYSLST, the DLZMMSG 
routine is entered by: 


DLZMINIT 
DLZMTERM 
DLZMPRH 
DLZMABND 
External routines 


Control Blocks Addressed 
DTFs for SYSLOG and SYSLST 
Register Contents 


e Atentry: 
R14 Return address : 
Base registers already initialized except for external routine entry, which 
initializes registers before joining mainline 


- At entry to message table (DLZMMSGT): 


R1 ___— Points to parameter list 

R4 Base register for DLZMMSGT | 

R5 Address of where message is to be placed 

R7 Length of message set up before calling DLZMMSGT;, after call, R7 has 
total message length 

R9__—~ Points to PST (for checkpoint message DLZ105]) 

R10 Second base register for DLZMMSGT 
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Exits 


To calling routine via branch register 14 





Macros Used 
PUT 


DLZMSTP0 - Stop MPS Transaction 


This module is invoked when a user wants to stop MPS. The user inputs a specific 
transaction code (CSDD) defined to initiate the stop transaction processing. The 
module then posts the particular XECB that causes the MPC to end the MPS 
environment. 


After the post, the MPC allows batch jobs already executing to complete, but will 
not allow any new ones to start. 


( | This transaction should be started before CICS/VS non-immediate shutdown is 
| initiated. 


Macros Used 


XECBTAB TYPE=CHECK 


| DLZMPURO - Purge Temporary Storage Transaction 


This module is invoked by the user via a specific transaction code (CSDP) to purge 
( _ the temporary stroage queue (TSQ) used by MPS Restart. 


If MPS is active when this module is invoked, then a flag is set behind the stop 
partition XECB (DLZXCBO1) which signals to the master partition controller 
(MPC) that the TSQ is to be purged, and the stop partition XECB is posted. (It 
serves a dual purpose in this way.) 


If MPS is not active, then the TSQ is purged by this module. 


Control Blocks Addressed 

( . TDOA CICS/VS Transient Data Output Area 
CSA CICS/VS Common System Area 
TCA CICS/VS Task Control Area 


DLZXCBO1 Stop Partition XECB 
Entry Register Contents 
R12 TCA address 


R13 CSA address 
R14 Routine entry point 


Macros Used. 

DFHPC TYPE=RETURN 
DFHPC TYPE=ABEND 
DFHSC TYPE=GETMAIN 
DFHSC TYPE=FREEMAIN 
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DFHTD  TYPE=PUT 





DFHTS TYPE=PURGE | 
DFHWTO 

EXTRACT 

MAPBDY 


| XECBTAB TYPE=CHECK 


Data Base Recovery Utilities 


DLZBACKO0 - Batch Backout Interface 


The batch backout interface module reads and validates any ‘LI’ control statements 
from SYSIPT. A log input specification table describing each log file to be 
processed is created. The module then reads the DL/I log files and passes the data 
base log records to the data base backout module (DLZRDBCO) for processing. 


By reading the log files in a backward mode, this module is able to process the data 

base records in reverse sequence without using an intermediate work data set. -_ 
When a block is read in, it is searched and the sequence field located at the end of Ne! 
each logical record is replaced by the length of that logical record. With the length 

thus in the back of a record as well as in the front, it is deblocked and spanned. 


The interface process includes the following record types: 


X‘O7’ Application program termination record 
X‘08’ Application program scheduling record | 
X‘41’ ~~ Checkpoint record 

~X‘50’ ~—— Data base log record 
X‘51’ Data base log record 


fm 
a 


The batch backout utility is executed under DL/I control as an application 
program. Processing of module DLZBACKO is as follows: 


1. Control is received from DL/ initialization and the Se name is obtained 
from the parameter data. | 


2. The log file is opened to be read backward. © roa 
3. The log file is read backward and records bypassed until the first data base log "a Y | 
record for the PSB is obtained. 


4. An application program termination record (X‘07’) for the PSB indicates no 
backout necessary, the message ''BACKOUT COMPLETE" is issued at 
SYSLOG, the log is closed, and the job is terminated. 


5. Data base log records (X‘50’ and X‘51’) are passed to module DLZRDBCO to ~ 
be processed against the appropriate data base. Processing terminates when an 
application program scheduling record or a checkpoint record is read, the 
message “BACKOUT COMPLETE” is issued at SYSLOG, the log is closed, 
and the job is terminated. 


If end of file is reached on the log (i.e., the header record is read), it is closed. If 
more log files are to be processed, the above process is repeated starting at step 2. 
Multiple log files must be processed in reverse order of their creation. When all log 
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files are processed, a ‘BACKOUT COMPLETE” message is issued and the job 
ie step is terminated. The job is terminated by returning control to DL/I which 
( purges all buffers, closes all DMBs, and closes the output log file. 


Entry Register Contents 


R1___—~PSB list address 
R13 Save area 

R14 Return 

R15 Entry point 


Control Blocks - DLZBACKO 


Application program scheduling record 
Application program termination record 
Checkpoint record 

Data base log record 


— DMB 
( PDIR 


PSB 
PST 
SCD 


External Modules Called 
DLZRDBC0 - Called to interface with DL/I and perform backout. 
( DLZBACM6O - Message writing . 
| Record and Message Formats - DLZBACKO 


All messages are sent to the SYSLOG and SYSLST devices. The messages are © 
contained in module DLZBACMO. 


DLZRDBCO - DB Change Backout 


This module receives control from: 


( ; 1. DLZBACKO in a batch environment, or | 
= 2. DFHDBP in an online environment during dynamic transaction backout, or 
3. DFHTBP in an online environment during CICS/VS emergency restart. 


with a log record to process. They call open/close (DLZDLOCO) to open the 
DMB specified in the record: unless the data base is already open. The buffer 
handler (DLZDBHO0) is called to retrieve the KSDS or ESDS block as indicated 
by the key or the ESDS relative block number or relative byte address. 


The data in the buffer is replaced with the ‘old’ information in the log, thereby 
nullifying the offending programs update. In the case of HD, when a physical 
delete or insert record is processed, space management (DLZDHDSO) is called to 
update the free space elements and bit map, if necessary and to build the input data 
for the data base logger. DLZRDBLO is called when using the DL/I logger to 
record the changes made to the data base. DLZRDBL1 is called when using the 
CICS/VS journal to record the changes made to the data base. 
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The buffer handler is then called again to mark that buffer altered and control is 
returned to the calling module. 





Entry Register Contents and Control Blocks 


R1 PST address 
R13 Save area 
R14 Return 

R15 Entry point 


PSTSCDAD _ SCD address 
ADDRLOG __ Address of data base log record within DLZBACKO PSTDGU & 
| PSTDGN must be Zero On initial entry 


Control Blocks - DLZRDB Co 


Data base log record 

_DDIR | 
DMB CN 
DSG e Z 
PCB / a 
PDIR 
PSB 
PST 
SCD 


External Modules Called 


DLZDBHOO Called to read a data base record and to mark the buffer altered _ a 
DLZDHDSO_ Called to free or reserve space in an HDAM or HIDAM record i y 
DLZDLOCO Called to open data base ~ 
DLZRDBLO Called to log backout modifications to data base 

DLZRDBL1_ Called to log backout modifications to data base (online) 


Interface with External Modules 


All modules expect R14 + R15 to contain return address + module entry point 
address. 

f -~ 
DLZDLOCO | \ 7 


R1 address of PST 
R2 address of DDIR entry for DMB to be opened 


PSTDSGA address of DSG to open 
PSTFNCTN PSTOCDMB + PSTOCOPN 
SCDCWRK _ address of normal log record work area 


DLZDBHOO 
-R1 address of PST 


PSTBLKNM_ RBN if HD ESDS 

PSTACBNO 1 

PSTDMBNO 1 

STBYTNM RBA if HISAM ESDS or address of key if KSDS 
PSTFNCTN | desired function 
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DLZDHDSO 


R1 address of PST 
R5 address of PSDB of segment 


PSTOFFST _ offset to segment from beginning of block 
PSTCODE 1 _ indicates backout in control (for logger) 
PSTFNCTN PSTFRSPC + X‘80’ (to show backout in control) 
DLZRDBLO/DLZRDBL1 


RO SCD address 
R1 —_~=~PST address 


PSTCODE1 PSTINTNT + PSTSCHED to indicate backout calling 

PSTDATA address of data in buffer 

SCDCWRK _ address of backout log work area containing the control information 
for this log record 


Exit Register Contents 


All registers are restored with the exception of register 15 which contains a return 
code. 


Error Codes and Handling - DLZRDBCO 


All error codes are passed in register 15. 


( : DLZURDBO - DB Data Set Recovery 





The data base data set recovery utility module DLZURDBO is executed under 
DL/I control as an application program. Control is passed to DLZURDBO from 
DL/I initialization. This module is comprised of two independent but logically 
related functions. The first consists of an image dump and a change accumulation 
processor. The PCB address is saved, and a GSCD call is issued to obtain the PST 
address. Control is passed to DLZURCCO to read and process control statements 
from SYSIPT. From information saved by DLZURCCO, a DMB is loaded from 
the Core Image Library to obtain the physical characteristics of the data set to be 
recovered. The DL/I open/close routine (DLZDLOCO) is called to open the 
output ACB and the input file is opened. Then the program enters a dump/cum 
data merge routine. This routine selects a dump record, merges any accumulated 
changes from the cum data set, and a call is made to the buffer handler 
(DLZDBHO0) to write the new record to the output data set. Upon completion, a 
partial or completely recovered data set may exist. If no additional changes are to 
be applied through log files, the program calls the DL/I open/close routine 
(DLZDLOCO) to close the output ACB and terminates. 


If additional changes are to be applied from log files, the program enters the second 
function. This routine opens the logs, scans the log to find a record that applies to 
this data set, and merges the data from the log to the data set record. Upon 
completion, the routine does post-processing and a recovered data set then exists. 


The operation of this routine depends on certain DL/I functions to process the 
logs. The log is scanned for a matching data base/data set name record. When 
One is encountered, the record ID, either a key of a KSDS record or a relative block 
number of an ESDS record is saved, and a call is made to the buffer handler 
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(DLZDBHO0) requesting that the record be retrieved. Upon successful return, the 
log record data is merged with the returned record, and a call is made to the buffer 7 
handler requesting that the record be marked as altered to cause rewriting. The a » 
records from the log are thus processed until an end of file is encountered on the {. 
log input. At this time, a call is made to the buffer handier requesting that ail 
altered buffers be purged, that is, that all records that have been altered be 

- rewritten. The program then calls the DL/I open/close routine enero to 


close the output ACB, and the program terminates. 





Blocks and Tables - DLZURDBO 
This module utilizes certain DL/I blocks, including the PST, DSG, DMB, DMB 
directory, SDB, PCB, JCB, and SCD. Additionally, several record formats are 


used as follows: 


1. HISAM reorganization header and data records. See HISAM reorganization 
unload (module DLZURULO) for details. 


2. Data base image dump header and data records. See data base data set image 
copy module (DLZUDMP0O) for details. 


3. Accumulated change CUM header and data records. See change accumulation 
module (DLZUCUM6O) for details. , 


4. Data base change log records. | 


Normal Entry Points 





The only entry point to this module is DLZURDBO. 
Entry Register Contents 

R1 i pointer to fullword containing address of PCB 
Exit Register Contents | 

All registers are restored to entry conditions. 
Modules Called by DLZURDBO — : - 


The recovery control statement processor (DLZURCCO) is called to read and 
validate any input control statements. 


Ri si pointer to recovery common area 
The DL/I open routine (DLZDLOC0) is called to open a specific ACB. 
Ri pointer to PST 


The DL/I buffer handler (DLZDBHO0) is called to retrieve and write a specific 
record, mark a buffer altered, and purge (rewrite) all altered buffers. 


RI pointer to PST 





The DL/I close routine (DLZDLOC0) is called to close a specific VSAM ACB. 
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R1___ipointer to PST 
| C Error Codes and Handling - DLZURDBO 


All codes are in the form of messages. The module DLZRDBM6O contains all error 
messages issued by the Data Base Data Set Recovery Utility. 


DLZURCCO0 - Recovery Control Statement Processor 


This module reads and validates the input control statements from SYSIPT. The ‘S’ 
control statement describes the data base to be recovered. The ‘LI’control 
statements describe the log files to be processed. Information from these 
statements is saved in the recovery common area for use by DLZURDBO. 


Normal Entry Point 
The only entry point to this module is DLZURCCO. 
( Entry Register Contents 
| R1 pointer to recovery common area. 
Exit Register Contents 


All registers are restored to entry conditions except R15, which contains a return 
code (see below). 


Error Codes and Handling 


( of? | Messages are issued to SYSLST and SYSLOG for any invalid control statements. 
On return to DLZURDBO, R15 is set as follows: 


R15=0 }#£=Noerrors 
R15 =4 °#No input control statements 
R15 =8 Input control statement error 


DLZUDMPO - DB Data Set Image Copy 


( ~ The data base data set image copy utility module DLZUDMP0O is executed as a 

a standard VSE application program and creates a backup copy of a specific data 
base data set. Input may be either a KSDS (HISAM, Simple HISAM, or HIDAM 
INDEX) or an ESDS (HISAM, HIDAM, or HDAM). The output is used as input 
to the data base data set recovery utility. Processing is as follows: 


1. Acontrol card is read from SYSIPT and preliminary validity checking is 
performed on various fields. The input card defines the data base/file to be 
dumped, the dump output symbolic filenames, and the number of output copies 
to be created. 


2. The device type is determined for each output file specified and the file(s) are 
opened. 


3. The DMB is loaded from a core image library to obtain the physical 
characteristics of the data base file to be dumped. 
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4. A header record is written to the output file. This record contains information 
necessary to allow the use of the image dump file by the data base data set 
recovery utility. 





5. The: 


6. Input segments are read sequentially, an 8-byte prefix is added to identify the 
segment, and the logical record (prefix + segment) is blocked and written to 
the output file. 


7. After all segments have been copied (EOF), the input and output files are 
closed. | 


8. Output statistics for the file are written to SYSLST. 


9. Processing continues from step 1 until there are no more input cards, at which 
time the program terminates. 


A. 
Control Blocks - DLZUDMP0O | ( F 


e Dump record prefix 
e Dump header record. 


Error Codes and Handling - DLZUDMP0 


All error codes are in the form of messages to SYSLST and SYSLOG. All the 
messages used by the DB Data Set Image Dump Utility are contained in module 
DLZDMPM6O; a read-only CSECT. 


DLZUCUMO - DB Change Accumulation Utility | | ee 


The data base change accumulation utility module DLZUCUM6O is executed as a 

standard DOS/VS application program. DLZUCUM6O controls the overall 

operation of the Data Base Change Accumulation Utility. First, the control card 

processor module (DLZUCCTO) is called to read the input stream. Upon its 

return, the PROCFLAG switch is tested. If records are to be passed to sort, the © 

sort parameter list is formatted, including a sort Exit 15 (DLZUC150) and the sort | 
Exit 35 (DLZUC350). The sort program is then loaded, and this module _ ~~ 
(DLZUCUMO) waits for it to terminate. Upon termination, a completion code is (t j 
tested and appropriate messages are provided as output. If records are not to be wy 
sorted, that is, no DBO type control cards were read, the module calls the Exit 15 

module (DLZUC150) to create the new log file. If error are encountered by any of 

the four processing modules, control is passed to the common error routine 

DLZUCERO. | | 


Control Blocks - DLZUCUMO 


e Data base name table, containing the data base names and the address of the 
date/time table for this entry. 

e Data/time table 

e Accumulation header record 

e Accumulation record 
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Normal Entry Point 


The main entry point to this module is DLZUCUM0O. DLZERRTN is an entry 
point used by DLZUC150 on any error condition. 


Entry Conditions 


This is the main module which controls the overall operation of the Data Base 
Change Accumulation Utility program. 


Control information is passed from module to module by means of an externally 
referenced table contained in DLZUCUMO. 


DLZCUMM0 - Common Error Routine 

This module is the common error routine. Control may be passed to it from any of 
the four processing modules. It addresses a message depending on parameters 
passed to it, and prints a message to the SYSLST and SYSLOG devices. 

Normal Entry Point 

The only entry to this module is DLZCUMMO. 

Entry Conditions 

This module is entered to output all error messages. 


Entry Register Contents 


R1 contains a message number. R2 is negative if this is a multi-part message. (R2 
points to last byte of message on second entry of multi-part message.) 


Exit Register Contents 


All registers are restored to entry conditions except R2, which points to last byte of 
message on first entry return of multi-part message. 


DLZUCCTO0 - Control Card Processor 

This module is the control card processor. It reads the control card input stream, 
checks the cards for validity, and constructs the data base name table and the 
date/time table if data base names are supplied. It also constructs the log input 
specification table describing the input log file(s). | 

Normal Entry Point 

The only entry to this module is DLZUCCTO. 

Entry Conditions 

This module is entered to process the control card input stream. 


Exit Register Contents 


All registers are restored to entry conditions. 
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DLZUC150 - Sort Exit 15 


This module is the sort Exit 15 routine. It reads the log input records, checks the 
purge date if applicable, and determines the disposition of the record. If the record 
matches an entry in the data base name table, the date/time tabie is searched and 
the appropriate purge date and time are compared. If the record is before the 
purge date, the program returns to read another record. If the record is not purged, 
the routing is determined from the table and written to sort and/or to the new log. 
A table of DMB names and purge dates is prepared for Exit 35. 





Normal Entry Point 


This module is entered at DLZUEX15 if no records are to be accumulated, and at 
DLZUC150 by sort. 


Entry Conditions 


This module is entered to read input logs and disperse records to new log or sort. _ aN 
R1 contains the address of the parameter list from sort or a dummy list if control \ oe 
was received from DLZUCUMO. 


Exit Register Contents 
All registers are restored. 
DLZUC350 - Sort Exit 35 


This module is the sort Exit 35 routine. It receives all records from sort. If an old 
accumulated data set is supplied, a record is read from the data set and a record is 
retrieved from sort. The data base name and file identification of the records are 
compared. All input cum records are purge-checked according to the date/time, if 
any, specified on DBO card(s). If the old cum input is low, it is written to the new 
cum data set. If the records are equal, the data from the sort record is merged to. 
the old cum record, unless purged, and another record is obtained from sort. This 
sequence continues until an unequal condition is detected, at which point the 
record is written to the new cum data set. If the old cum is high, records from sort 
are combined and written to the new cum data set until the compare condition 
changes. This process continues until both the sort and the old cum records are 
exhausted. 








Normal Entry Point 

This module is entered at DLZUEX35 by sort. 

Entry Register Contents 

Register 1 contains the address of the sort Exit 35 parameter list. 
Entry Conditions 

This module is entered by sort to dispose of | all sorted records. 


Exit Register Contents 





All registers are restored to entry conditions, with the sort parameter list updated as | 
needed. 
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DLZLOGPO - Log Print Utility 
é The log print utility module (DLZLOGPO) is executed as a standard DOS/VS 
Ma application program and prints the contents of DL/I log files. Input log files may 
be either tape or disk. Optionally, the utility can create an output log tape suitable 


as input to the backout utility module (DLZBACKO). Processing of the log print 
utility is as follows: 


1. Module DLZLPCC0 is called to process input control statements. 
2. If requested, the output log tape file is opened. 


3. The DLZDVCE macro is issued to determine the log device type, and the log 
file is opened. 


4. The log records are read and deblocked, and the record types are checked to | 
see if valid DL/I record. 


( : 5. The log records are printed to SYSLST in either keyword format or dump 
format. 


6. If requested, log records are written to output log tape. 


7. The input log file is closed. If more input log files were specified, processing 
continues from Step 3. 


8. If requested, the output log file is closed. 
( : 9. Informational statistics are written to SYSLST and the program terminates. 
Error Codes and Handling 


All error codes are in the form of messages written to SYSLST and SYSLOG. All 
the messages used by the log print utility are contained in module DLZLGPMO. 


DLZLPCCO0O - Log Print Control Statement Processor 


This module is called by DLZLOGPO to read and process input control statements. 
The control statements are read from SYSIPT and validity checking is performed. 
Valid control statement types are: ‘LO’, ‘LS’, and ‘LI’. Information from the 
control statements is saved in the log print common area. 





Normal Entry Point 
This module is entered at DLZLPCCO by DLZLOGPO. 
Entry Register Contents 


Register 1 points to the log print common area. 
Register 9 points to the next available print line buffer. 


Entry Conditions 


This module is entered by DLZLOGPO to read and process input control 
statements. 
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Exit Register Contents 





All registers are restored to entry conditions except register 9, which is updated to gf 
point to the next available print line buffer. ae 


Error Codes and Handling 


All error codes are in the form of messages written to SYSLST and SYSLOG. All 
the messages used by the log print utility are contained in module DLZLGPMO. 


Data Base Reorganization Utilities 


DLZURULO - HS DB Unload 


The HISAM reorganization unload module DLZURULO is executed as a standard 

DOS/VS application program. A control card specifying the data base name, data 

set name, and output symbolic unit name is read. The DBD specified is loaded, 

and a short segment table is constructed. This table consists of the first eight bytes as 
of each segment table entry in the DBD. This includes, among other things, the \e 
segment physical code and the segment length. The size of the prefix, as described 

for each segment type, is added to the segment length and entered in the table. 

This length is later used to move the segment from the input area to the output 

area. 


Next, the input and output data sets are opened. A header record containing 

information about the data base data sets is constructed, and a statistics record is 

written. The first KSDS record is then read and the root segment is checked to 

determine whether the deleted flag is on (no prefix if Simple HISAM). If it is on, fA 
the total segment chain for that root is ignored, and the next root is processed. If Ve 
the root is not deleted, it is moved to the output area, and the first depend ent 
segment, if present, is processed. If the dependent segment is not deleted, it is 
moved to the output area, and the next segment is processed. This continues until 
the complete dependent segment chain for this root, including any overflow 
dependent segments on the ESDS, have been processed. If the segment is deleted, 
each succeeding segment that is a child of the deleted segment is also deleted. The 
first segment that is not a child of the deleted segment causes the normal segment 
processing to be resumed. The last record written is a statistics record which 
includes information needed for audit trail. The output data set now contains the 
reorganized KSDS and ESDS logical records in physical sequential format (only 
KSDS if Simple HISAM or INDEX). An image of the KSDS record containing a 
root segment and dependent segment is followed by images of the ESDS records 
containing overflow dependent segments for the root segment. A chain pointer in 
the KSDS contains the correct relative byte address of the next ESDS record 
containing overflow dependent segments. If more than one ESDS record is needed 
to contain overflow dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 





Error message handling is accomplished in the following manner: When a routine 
within module DLZURULO requires an error message to be generated, a number is 
loaded into R1. This number corresponds to a message in the message CSECT 
(DLZRULMO). The routine then branches to a common routine which outputs the 
message. The number passed in R1 is multiplied by 4 and added to the start of the 
message CSECT (DLZRULMO). At that offset, a fullword containing the length 
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of the message and the offset to the start of message text is obtained. These values 
are used to move the message to an output buffer. DLZRULM6O is a read-only 
module containing all error messages issued by module DLZURULO. 





Control Blocks - DLZURULO 

e Short segment table 

e Output data record 

e Output header record 

e Statistics record. 

Error Codes and Handling - DLZURULO 

All error codes are in the form of error messages. 


Sample Description of HISAM Reorganized Format 


Pn Assume a HISAM data base which consists of a single root segment and dependent 
( | segments in the hierarchical format shown in Figure 3-4. 


ROOT SEGMENT 
( " SEG A SEG D SEG G | 


SEG F 





SEG J 


The input for the HISAM Reorganization Unload Utility appears as shown in 
Figure 3-5 on page 3-82. 


Figure 3-4. HISAM Data Base with One Root Segment 
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KSDS RECORD 


SEG A SEG B SEG C 
BOON SEGMENT) 4DELETED) (CHILD OF A) | (CHILD OF A) jo 


koa RECORD 1 














SEG F 
A SEG D SEG E (DELETED) SEG G 





ESDS RECORD 2 


| SEG J 


Figure 3-5. Input for HISAM Reorganization Unload Utility 


Given this input, the HISAM Reorganization Unload Utility provides the output 
shown in Figure 3-6. ra 
: 


HEADER RECORD oe 


INFORMATION ABOUT DATA BASE 


STATISTICS RECORD 
TOTSEG VALUE =0 


DATA RECORD (KSDS) 





DATA RECORD 2 (ESDS) 


fof sew [wor [ol vee wace 


UNLOADED STATISTICS RECORD 
TOTSEG = NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 


Figure 3-6. HISAM Reorganization Unload Utility Output 





Note: A second ESDS record is unnecessary because space occupied by deleted 
segments is reclaimed. 


DLZURRLO - HS DB Reload 


The HISAM reorganization reload module DLZURRLO is executed as a standard 
DOS/VS application program and is used to reload a reorganized HISAM data 
base data set group. The input to the program consists of a reorganized dump of 
the key sequenced data set (KSDS) and entry sequenced data set (ESDS) created 
by the HISAM Reorganization Unload Utility program. Processing is as follows: 


1. A control card, which contains the filename of the input file containing the 
HISAM data base to be reloaded, is read. The input file is opened and the 
header record is read. | 
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2. The output KSDS and ESDS ACBs are generated using the information 
- contained in the header record and the KSDS and ESDS are opened (only 
( : KSDS if Simple HISAM or INDEX). 


3. The statistics record is read and the statistics table initialized. 


4. Records are read sequentially from the input file. These records are images of 
KSDS and ESDS records. 


5. KSDS records are written to the output KSDS using VSAM keyed sequential 
(mass) insert. 


6. ESDS logical records are written to the output ESDS using VSAM addressed 
sequential insert. 


7. After all data records have been processed, the last input statistics record is 
read, and a statistics report is printed, comparing segments unloaded/reloaded. 


( . 8. The files are closed. 


All error messages issued by the HS DB reload utility are contained in module 
DLZRRLMO. It is a read-only module. 


Control Blocks - DLZURRLO 


e Header record 
e Input data record 


( DLZURGUO - HD DB Unload 


The HD reorganization unload module DLZURGUDO is executed under control of 
the DL/I system as an application program and is used to unload a data base by 
issuing DL/I calls. One or two files may be created and output may be to tape or 
DASD. The module contains two processing modes - “‘normal’’ and “‘restart”’. 


Normal processing, after module DLZURGUO receives control from DL/I, is as 
follows: | 


( ; 1. The PCB address is saved and a GSCD call is issued to obtain the PST address. 
a The PST allows the program to access the DL/I control blocks needed to 
construct the prefix portion of the output record. This prefix, as described 
below, is used by the HD Reorganization Reload Utility. 


2. The number of outputs (one or two) and output device type (tape or DASD) 
are determined. 


3. Storage is obtained for the statistics table. 
4. Each output file is opened. 


5. The statistics tables, which have been initialized for all data base segment 
types, are written to the output file(s). © 


6. A Get Next (GN) call is issued for the first (or succeeding) segment. 





7. The statistics table for the segment type is updated. 
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8. The segment is combined with the segment prefix to form an output logical 
record. The output logical records are blocked and written. 


9. Whenever a checkpoint interval is reached (first root segment after 5000 


Tr 
segments have been processed or as specified on CHKPT parameter), a_ 


checkpoint record is written to the output file. The current statistics are part of 
the checkpoint record. To insure the checkpoint record is physically written, a 
dummy checkpoint is also written to output. Additionally a message containing 
the ID of the checkpoint record is written to SYSLOG. 


10. Processing continues at step 6 until end of file is encountered. 


11. At end of file, the statistics table totals are written, the output file(s) is closed, 
and the program returns control to DL/I. 


Restart processing, after module DLZURGUDO receives control from DL/, is as 
follows: 


1. Steps 1 - 4 of “normal processing”’ are performed. 


2. The restart (RESTART) input file is opened. This is either the output1 
(HDUNLD1) or output2 (HDUNLD2) file from the previously terminated job 
execution. 


3. A message is issued to SYSLOG requesting the checkpoint record number (ID) 
at which to restart. The number is validated. 


4. All records, including the requested checkpoint record, of the RESTART file 
are copied to the output file(s). A Get Unique (GU) call is issued for the 
checkpointed root segment to establish positioning. If the RBA is available for 
the root segment, it is placed in the SSA with an internal ““*T”’ command code; 
otherwise the segment’s key is placed in the SSA and an internal “‘*C” (key 
retrieve) command code call is issued. The statistics table is initialized with the 
checkpointed statistics record. 3 


5. Steps 6 - 11 of “normal processing” are performed. 
Control Blocks - DLZURGUO 

e Output record containing segment prefix 

e SSA for GU call by RBA 

e SSA for GU call by key 

¢ Output table record 

e Checkpoint record. 


Interfaces - DLZURGUO 


This module interfaces with DL/I through the DL/I language interface module 
DLZLIO00 at entry point ASMTDLI and by fast path interface to retrieve. 


Error Codes and Handling - DLZURGUO 


All errors are indicated by error messages. All messages issued by the HD DB 
unload utility are contained in module DLZRGUMO. It is a read-only module. 
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DLZURGLO - HD DB Reload 


( The HD reorganization reload utility (DLZURGLO) is loaded under DL/I control 

bi” as an application program. It reloads a data base under control of DL/I. Input to 
the module consists of a sequential dump data set of logical records created by the 
HD reorganization unload utility (DLZURGUO). A logical record consists of a 
segment prefix and a segment. 


During the reload, a message is issued each time a checkpoint record is encountered 
(approximately every 5000 segments or as specified by user on unload). This 
message is the same in content and format as that issued during unload when the 
checkpoint record was created, and identifies the checkpoint by number. If the 
reload facility fails, a restart capability called ‘Reload Restart” allows restarting 
from a checkpoint record. 


After module DLZURGLO receives control from DL/1 initialization, processing is 


as follows: 
( - 1. The PCB address is saved, and a GSCD call is issued to obtain the PST 
ae address. 


2. The input device type is determined and the data set is opened. 

3. If restarting, obtain checkpoint restart number from operator and locate 
checkpoint record. The data base is then positioned (GU call) and the end of 
data is found (GN calls). | 

C 4. An input record is read (segment), and a DL/I call list is constructed. 

5. ADL/I Insert (ASRT) call is issued for the segment. 


6. After all segments have been processed, the last statistics table record is read 
and a comparative statistics report is written. 


7. The input data set is closed, and the program returns control to DL/I. 
. Blocks and Tables 
( : Input record 
Interfaces - DLZURGLO 


This module interfaces with the DL/I routines through the DL/I language interface 
module DLZLI000 at entry point ASMTDLI. 


Error Codes and Handling - DLZURGLO 
All error conditions are indicated by error messages. All messages issued by the 


HD DB reload utility are contained in module DLZRGLMO. It is a read-only 
module. 
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Partial Data Base Reorganization Utility 





DLZPRCT1 - Part 1 Control 


The Part 1 Control module initializes the environment for Part 1 then cotrols the 
order of execution for Part 1 processing. | 


Initially this module acquires storage for the data base table (DBT), segment table 
(SGT), action table (ACT), and range table (RGT). The common area 
(COMAREA) is part of this module and is not dynamically acquired. 


Next the Part 1 Control module loads the Part 1 service modules and their entry 
points in COMAREA. | 


The final processing by this module links the Part 1 action modules to the sequence 

defined by the linklist table. As each linked to module returns, its return code is 

checked. Part 1 processing ends when the return code exceeds the maximum value sea. 
allowed for that module, which is an error condition, or Part 1 successfully a J 
completes. In this case the return code is zero.” aos 


The highest return code that the Part 1 Control module encounters is the return 
code for the Part 1 Control processing. 


Interface 
This module interfaces with the following modules: 


DLZPRERR - Message writer | Co 
DLZPRWFM - Work file manager : al 
DLZPRABC - Action table build 

DLZPRCLN - Cleanup 

DLZPRDBD - DBD analysis 

DLZPRPAR - Parameter analysis 

DLZPRPSB - PSB source generator 

DLZPRREP - PART1 report writer 


Control blocks - DLZPRCTI 





e ACT - Action table 

e DBT - Data base table 

e SGT - Segment table 

Normal Entry Point 

The only entry point to this module is DLZPRCT1. 

Entry Register Contents 

Standard register conventions are used for linkage to this module. 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
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DLZPRABC - Action Table Build 


This module analyzes logical relationships in the prime and related data bases. It 
builds entries in the action table (ACT). The action table entries indicate the 
necessary actions for reorganized segments and for segments that are related to 
reorganized segments. 





Interface 
This module interfaces with the following module: 
DLZPRERR - Message writer 
Control blocks - DLZPRABC 
e COMAREA - common area 
¢ ~ Normal Entry Point 
The only entry point to this module is DLZPRABC. 
Entry Register Contents 
R8 = Addressability for ACT 
R9 ~~ Addressability for DBT 
R10 Addressability for SGT 
| Ril Addressability for COMAREA 
pon, R12 Program base register 
( | R13 Save area address 
7 R14 Return address 
R15 Entry point address 
Exit Register Contents 
All registers are the same as on entry except R15, which contains the return code. 


DLZPRCLN - Part I Cleanup 


( This module writes the tables created in part one to the communication data set for 
Ra subsequent use in part two. The tables are written in the following order: 


1. Common area 

2. Data base table 

3. Segment table 

4. Range table 

Control blocks - DLZPRCLN 

« COMAREA - Common area 
Normal Entry Point 


The only entry point to this module is DLZPRCLN. 





Section 3. Program Organization 3-87 


Licensed Material—Property of IBM 


Entry Register Contents 


Standard register conventions are used for linkage to this module. 
R8 Communication data set DTF 

R9 Internal linkage address 

R11 Common area 

R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address | 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRDBD - DBD Analysis 


3-88 


This module analyzes the DBD that is to be used in data base partial 
reorganization. The module uses the characteristics of the prime and any related 
DBDs to build the data base table (DBT). It enters information about data sets in 
the dataset table3 in COMAREA. DLZPRDBD uses the characteristics of and 
relationships between segments in the DBDs to build the segment table (SGT). 


Interface 

This module interfaces with the following module: 
DLZPRERR - Message writer 

Control blocks - DLZPRDBD 

° COMAREA - common area 

Normal Entry Point 

The only entry point to this module is DLZPRDBD. 
Entry Register Contents 

R2 ~~ Addressability for SGT 

R3 = Addressability for TGT 

R4 ~=Addressability for DBT 

R5 Second base register 

R11 Addressability for COMAREA 

R12 Program base register 

R13 Save area address 

R14 _ Return address 

R15 Entry point address 

Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
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DLZPRPSB - Program Specification Block Source Generator | 


( This module creates a PSB source deck if the partial reorganization input parameter 
PSB= specifies input to Part 1. Because it is not necessary to process all of the 
segments in the data base, a PSB source deck specifies only the sensitive segments. 
The information used to create this source deck’ is taken from the partial 
reorganization table created in Part 1 Control. It is the user’s responsibility to run 
the PSBGEN and ACBGEN for this PSB prior to Part 2 Processing. 


Interface 
This module interfaces with the following modules: 


DLZPRERR - Message writer 
DLZPRWFM - Work file manager 


Normal Entry Point 
( ; : The only entry point to this module is DLZPRPSB. 
Entry Register Contents 
R2 ~~ Addressability for DBT 
R6 ~~ Addressability for SGT 
R10 File control block 
R11  Addressability for COMAREA 
R12 Program base register 
one R13 Save area address 
( - R14 Return address 
ae R15 Entry point address 
Exit Register Contents 
All registers are the same as on entry except R15, which contains the return code. 


DLZPRREP - Part 1 Report Writer 


=— This module creates a report based on Part 1 processing for the data base that is 

( ; going to be partially reorganized. The information used to create the report is 
ae extracted from the range table, data base table, and the segment table. 

Interface 

This module interfaces with the following module: 

DLZPRWFM - Work file manager 

Normal Entry Point 

The only entry point to this module is DLZPRREP. 

Entry Register Contents 

R2_~ Addressability for RGT and SGT 


R3 —_—-Addressability for DBT 
R8 BAL register 
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R10 File control block 

R11 Addressability for COMAREA 
R12 Program base register 

R13 Save area address 

R14 Return address 


R15 Entry point address 





Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRCT2 - Part 2 Control 


This module first loads the service modules. Then it restores the common area and 
the tables that were built during Part 1 Control processing from the DLZPRCOM 
dataset. Finally, this module establishes linkage to each Part 2 phase. 


Interface 
This module interfaces with the following modules: QW 


DLZPRERR Message writer 
DLZPRPAR Parameter analysis 
DLZPRUPD Update prefix 
DLZPRSTC _ Sort control 
DLZPRURC Unload/reload control 


Control blocks - DLZPRCT2 


¢ COMAREA - Common area 
¢ DBT - Data base table | . 


Normal Entry Point 
The only entry point to this module is DLZPRCT2. 
Entry Register Contents 


R10 File control block 

R11 Addressability for COMAREA 
R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 





Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 





3-90 DL/I DOS/VS Logic Manual, Volumel 


Licensed Material—Property of IBM 


DLZPRPAR - Parameter Analysis 


This module analyzes input control statements and generates data in the common 
area (COMAREA), segment table (SGT), action table (ACT), and the range table 
(RGT). 





Interface 
This module interfaces with the following modules: 


DLZPRWFM - Work file manager 
DLZPRERR - Message writer 


Control blocks - DLZPRPAR 


e DBT - Data base table 
e SGT - Segment table 
e ACT - Action table 


( - “ Normal Entry Point 
The only entry point to this module is DLZPRPAR. 
Entry Register Contents 


Ri =‘ Parameters 
R11  Addressability for COMAREA 
ets R12 Program base register 
( : R13 Save area address 
a R14 Return address 
R15 Entry point address 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRSCC - Scan Control 


This module scans segments of a data base as indicated in the data base table and 
action table in order to produce K records for SORT1 and T records for SORT3. 

K record types represent segments with unidirectional pointers to segments which 
may have moved during reorganization. T record types represent segments in 
secondary index data bases with non-unique key values from the source segment. | 
T records are provided with a relative record number based on the number of times 
the key of the index value is duplicated. 





Interface 
This module interfaces with the following modules: 


ASMTDLI  DL/I interface 
DLZPRERR Message writer 
DLZPRDLI DL/I service 
DLZPRWEM Work file manager 





Section 3. Program Organization 3-91 


Licensed Material—Property of IBM 


Normal Entry Point 


The only entry point to this module is DLZPRSCC. 
Entry Register Contents 

R11 Addressability for COMAREA 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRUPD - Update Prefix 


This module adds, deletes, and updates segments and indexes according to the 
input data work records and index work records from workfile 3 and workfile 5, 
respectively. This module processes each data base in physical order until all 
changes are complete. 


Interface 


This module interfaces with the following modules: 


ASMTDLI DL/I interface 
DLZPRERR Message writer 
DLZPRDLI DL/I service 


DLZPRWEM Work file manager 
DLZPRSTW Statistical writer 


Normal Entry Point 

The only entry point to this module is DLZPRUPD. 
Entry Register Contents 

R11 Addressability for COMAREA 

R13 Save area address 

R14 Return address 

R15 Entry point address 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
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DLZPRSTC - Sort Control 


This module contains four routines, SORT1 through SORT4. These routines 
arrange data work records for prefix update (DLZPRUPD). Each routine invokes 
DOS/VS sort passing parameters which includes the addresses of sort exits 15 and 
35. The sort exits perform the processing required by SORT1, SORT2, SORT3, 
and SORT4. 


SORT1 and SORT2 process data work records exclusively. The input to SORT1 is 
from RELOAD and SCAN. The input to SORT2 is from RELOAD and SORT1. 
Together these routines save the new relative byte address (RBA) of the segment 
moved in the associated work records and arranges them in physical sequence as 
they exist in the data bases. 


SORT3 and SORT4 process index work records exclusively. The input to SORT3 
is from RELOAD and SCAN. The input to SORT4 is from the DL/I index 
maintenance file and SORT3. Together these routines eliminate index work 
records that are not involved in update, convert the DL/I index maintenance 
records into partial reorganization format, and arrange the index work records in 
physical sequence. 

Interface 


This module interfaces with the following modules: 


DLZPRERR Message writer 
DLZPRWEM Work file manager 


Normal Entry Point 

The only entry point to this module is DLZPRSTC. 
Entry Register Contents | 

R11 Addressability for COMAREA 

R13 Save area address 

R14 Return address 

R15 Entry point address 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
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DLZPRURC - Unload/Reload Control 


This module performs the unload and reload of segments within user specified e » 
ranges. DLZPRURC frees the spaces previously occupied by the unload segments. | tJ 
It then inserts the segments into the user specified target area. The inserted | 
segment’s prefix carries forward the logical pointers, counters, and delete byte. 


As physical changes occur in the data base during the process, this module records 
them on the data base log data set. DLZPRURC gathers unload and reload 
statistics for reports during the processing. Finally, it creates work records for 
update depending on actions defined in the action table for reload. 


Interface 
This module interfaces with the following modules: 
ASMTDLI DL/I interface 


DLZPRWEM Work file manager | — 
DLZPRERR_ Message writer 


DLZPRDLI DL/I service aed 

Control blocks - DLZPRURC 

e COMAREA - Common area 

e FCB - File control block 

e DBT - Data base table 

« SGT - Segment table 

« ACT - Action table on 

e RGT - Range table eS 
oe ar, 


Normal Entry Point 

The only entry point to this module is DLZPRURC. 
Entry Register Contents 

R13 Save area address 


R14 Return address ff 
R15 Entry point address | rt _y 





Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
DLZPRWEM - Work File Manager 


This module provides open, close, input, and output operations for VSAM and 
SAM files used in data base partial reorganization. 


Interface 
This module interfaces with the following modules: 


ASMTDLI __— DL/I interface 
DLZPRERR Message writer 
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Control blocks - DLZPRWFM 


¢ * « COMAREA - Common area 
_ e FCB - File control block 


Normal Entry Point 
The only entry point to this module is DLZPRWFM. 
Entry Register Contents 


R6 ~~ Addressability for XWR 
R8& Addressability for FILECB 
R9 ~~ Addressability for DWR 
R10 Addressability for DBPCB 
R11 Addressability for COMAREA 
R12 Program base register 

ie, R13 Save area address 

( . R14 Return address 
all R15 _ Entry point address 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRDLI - DL/I Services 


: This module is the interface with DL/I DOS/VS when the function required 
ie: cannot be accomplished by any of the calls documented in the DL/I DOS/VS 
bead reference manuals. Examples of such functions are: 


e Retrieval of information from DL/I DOS/VS blocks 
e Direct interface with the DL/I DOS/VS buffer handler 
e Direct request to log changed prefix data 


To make use of this module, the caller must: 


_— 1. Complete any pre-requisite for the service needed 
( : 2. Set the code for the service needed in COMCIREQ 
Baier” 3. Enter this module by a BALR 14,15 


Interface 
This module interfaces with the following modules: 


DLZDBHOO Buffer handler 
DLZPRERR Message writer 
DLZFRSPO Space management 
DLZRDBLO Data base logger 


Control blocks - DLZPRDLI 


« COMAREA - Common area 
e ECB - File control block 

« DBT - Data base table 

e SGT - Segment table 
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e ACT - Action table 
¢ RGT - Range table 


Normal Entry Point 
The only entry point to this module is DLZPRDLI. 
Entry Register Contents 


R3 ~=—Addressability for DDIR, DMBDACS 
R5 _Addressability forJCB 

R6 SGT,SCD, LEV, SDB, PSDB 
R7 DBT, DMB | 
R8 Data base PCB 

R9_ PST 

R11 Addressability for COMAREA 
R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 


DLZPRSTW - Statistical Writer 


This module is used to produce statistical reports for UNLOAD, RELOAD, and 
SCAN in Part 2 Control. oe 


The report created for UNLOAD consists of range unload statistics, block range 
Statistics, and block changes by data base record. 


The report created for RELOAD consists of range reload statistics and block range 
Statistics. | 


The report created for SCAN consists of a scanned segment count for each 
affected data base record. 


Interface | 
This module interfaces with the following modules: 


DLZPRERR Message writer 
DLZFRWEM Work file manager 


Control blocks - DLZPRSTW 


e ACT - Action table 

« DBT - Data base table 

e SGT - Segment table 

e RGT - Range table 

¢« COMAREA - Common area 
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Normal Entry Point 
( The only entry point to this module is DLZPRSTW. 
Entry Register Contents 


R1 ‘Parameters, File control base register 
R6 ___— Print line base register 

R7 ~~ Addressability for ACT, RGT 
R8  Addressability for SGT 

R9 = Addressability for DBT 

R10 Program base register 

R11 Addressability for COMAREA 
R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 


( : Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. 
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DLZPRERR - Error Messages 
This module formats and sends messages to SYSLST. | |  » 


message is retrieved from the message table located in this module. If the message 
has a variable data field, the variable data passed by the caller is inserted in the 
message text. 





Based on the message number passed to this module by the caller, the text of the 


If an invalid message number is passed by the caller, the message number is printed 
with text that indicates it is an invalid message number. 


Control blocks - DLZPRERR 


« COMAREA - Common area 
e FCB - File control block 


Normal Entry Point va 

| | | 
The only entry point to this module is DLZPRERR. ed 
Entry Register Contents 


R1 ‘Parameters 

R3 ~=Addressability for SYSPRINT DCB 
RS FCB File control block base register 
R8 Message table base register 

R9 = Message buffer base register 

R11 Addressability for COMAREA 

R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 





Exit Register Contents 


All registers are the same as on entry except R15, which contains the return code. | 








3-98 DL/I DOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 
High Level Program Interface 


C . | | DLZEIPBO - DL/I Batch/MPS EXEC Interface Initialization 


This module has two logical functions. An initialization routine which processes 
the HLPI EXEC DLI INIT call and a routine that loads in DLZEIPB1, and passes 
control to it. 


All CICS/VS application programs which issue DL/I HLPI statements execute a 
translator generated DL/I HLPI INIT call on entry to that program. This INIT call 
results in passing control to entry point DLZEIPI in DLZEIPBO. 


The language interface module (DLZLIPLI or DLZLICBL) calls DLZEIPBO, 
which first checks to see if this is a DL/I HLPI INIT call. If it is, it checks to see if 
storage has been acquired for the UDIB/SDIB. Following this acquisition of 
storage, DLZEIPBO returns to the caller. 


( : If this is not an initialization call, DLZEIPBO checks the integrity of SDIB, issuing 
be DLZ0371 if the SDIB has been inadvertently destroyed. If the SDIB is fine, 
-DLZEIPBO determines if DLZEIPB1 has been loaded and loads it if not. 
DLZEIPBO then branches to entry point DLZEIPO in DLZEIPB1. 


Interface 
This module interfaces with the following: 


aie DLZEIPB1 HLPI DL/I Batch/MPS EXEC interface 
( DLZLICBL COBOL language interface module 
= DLZLIPLI PL/I language interface module 


Control Blocks 


e ARGO - ARGO parameter list 
e DIB - User DL/I interface block 
-e  EIPL - EIP parameter list 
e HLPIL - HLPI parameter list address 
e PATH - Path header control block 
¢ SDIB - System DL/I interface block 





Normal Entry Point 

The only entry point to this module is DLZEIPI. 

Entry Register Contents 

Ri  HLPI parameter list address 

R2 System DIB pointer (If storage has been acquired for System DIB) 
R13 Caller’s register save area address 

R14 Caller’s return address 

R15 Entry point of DLZEIPBO 


Exit Register Contents 





Ri HLPI parameter list address 
R2 System DIB pointer 
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R3 ARGO parameter list address 
R6 ~~ EIP parameter list address 
R8 — User DIB address 

R13 Caller’s register save area 


: 9 wratirzawn aAAawAnan 
| RW Caller S return aGaress 


DLZEIPB1 - Batch/MPS EXEC Interface Program 


This module handles all DL/I BATCH HLPI calls except the translator generated 
INIT call. It translates HLPI EXEC DLI statements into DL/I Call parameter 
lists. DLZEIPO in DLZEIPOO carries out the same function as this module. 





There are differences between DLZEIPB1 and DLZEIPOO because of the different 
environments. First, DLZEIPB1 uses DOS/VS storage control GETVIS or 
FREEVIS instead of CICS/VS storage control. Secondly, DLZEIPB1 uses its own | 
data structure DLZEIPL instead of CICS/VS TCA fields for obtaining the PCB 
address list. Thirdly, DLZEIPOO calls the online program request handler 
DLZPRHOO. 


| c™ 
DLZEIPB1 passes control to DL/I Program Request Handler (DLZPRHBO) for a 
batch or DLZMPRH for MPS batch). 


On entry, DLZEIPB1 determines if the call is a data base call. If so, it does the 
following: 


Checks to see if Key feedback is requested 

Determines which PCB in the PCB list to use 

Checks to see if a data transfer is to take place = 
Checks to see if segment name has been specified ud ”\ 
Checks to see if the call is a replace call with a previous get path call LY 
Acquires storage for the SSA 

Checks to see if the call is a valid insert call 

Establishes the correct command codes 

Builds field qualifications | 

Sets up the correct SSA for use by the DL/I Program Request Handler 


After DLZEIPB1 finishes building the SSA, it calculates the required I/O area size 
and builds a common I/O area for path calls. Then DLZEIPB1 passes control to 
the correct Program Request Handler. 





If the call is not a data base call, DLZEIPB1 does the following: 


Terminates task if it is a SCHEDULE call (Invalid in a batch environment) 
Terminates task if it isa TERMINATE call (invalid in a batch environment) 

~ Builds the checkpoint call if it is a CHECKPOINT call and passes control to 
the correct Program Request Handler. 


On return from the Program Request Handler, DLZEIPB1 does the following: 


Initializes the UDIB with information passed by DL/I in the PCB 
Checks the status code | 

Moves Key Feedback information to user area if requested 
Transfers data to user segment I/O areas | 

Returns to Caller | 





3-100 DL/I DOS/VS Logic Manual, Volume1 





Licensed Material—Property of IBM 


Interface 
This module interfaces with the following: 


DLZEIPBO  HLPI DL/I Batch/MPS EXEC interface initialization 

DLZBNUCO Batch nucleus (Routine DLZPRHBO - Batch Program Request 
Handler) 

DLZMPIOO MPS Batch (Routine. DLZMPRH - MPS Batch Program Request 
Handler) 

DLZMMSGT Message Module for error and informational messages 


Control Blocks 


ARGO ARGO parameter list 

DBPCB DL/I Program Control Block 

DIB User DL/I interface block 

EIPL EIP parameter list 

HLPIL MHLPI parameter list 

PATH Path header control block 

SDIB System DL/I interface block 

SSA Segment Search Argument control block 
SSAP SSA path call appendage block 

SSAX SSA extension block 


Normal Entry Point 

The only entry point to this module is DLZEIPO. 
Entry Register Contents 

Ri  HLPI parameter list address 

R2 System DIB pointer 

R3 ARGO parameter list address 

R6 ~~ EIP parameter list address 

R13 Caller’s register save area address 
R14 Caller’s return address 

R15 Entry point of DLZEIPB1 

Exit Register Contents 


R14 = Caller’s return address 


Section 3. Program Organization 3-101 


Licensed Material—Property of IBM 


DLZEIPOO - DL/I Online EXEC Interface Program © 


DLZEIPOO handles all DL/I ONLINE HLPI calls. It is the online interface 
routine that connects the user application program to the online program request 


i 1 ‘ hn Antrewnwn en net Pe ae ee] 
handler. It performs the combined function of its batch environment counterparts 


DLZEIPBO and DLZEIPB1. DLZEIPOO builds data base calls to the online 
program request handler (DLZPRHOO) according to HLPI command syntax. 





On entry, DLZEIPOO determines if the call is the initialization call. If it is, it 
acquires storage for the SDIB/UDIB. 


If it is not the initialization call, DLZEIPOO goes to the routine DLZEIPO where it 
verifies the integrity of the system DIB. If the call is a data base call, it does the 
following: 


Checks. to see if Key feedback is requested. 

Determines which PCB in the PCB list to use 

Checks to see if a data transfer is to take place a 
Checks to see if segment name has been specified 
Checks to see if the call is a replace call with a previous get path call | Nome 
Acquires storage for the SSA | 

Checks to see if the call is a valid insert call 

Establishes the correct command codes 

Builds field qualifications | | 

Sets up the correct SSA for use by the DL/I Program Request Handler 


~ 


aN 


After DLZEIPOO finishes building the SSA, it calculates the required I/O area size 
and builds a common I/O area for path calls. Then DLZEIPOO passes control to 
DLZPRHOO (Online Program Request Handler). 





If the call is not a database call, DLZEIPOO does the following: 


Builds aSCHEDULE call if requested 

Builds a TERMINATE call if requested 

Builds the CHECKPOINT call if requested 

DLZEIPOO then passes control to the Program Request Handler. 


After returning from the Program Request Handler, DLZEIPOO does the following 
for data base calls: 





Initializes the UDIB with information passed by DL/I in the PCB 
Checks the status code 

Moves Key Feedback information to user area if requested 
Transfers data to user segment I/O areas if necessary 

Returns to DFHEIP 


After returning from the Program Request Handler, DLZEIPOO does the following 
for the SCHEDULE call: 


Counts the number of PCBs 
Acquires storage for the path header control blocks 
Returns to DFHEIP 
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Interface 
( This module interfaces with the following: 
DFHEIP CICS/VS EXEC Interface Program 


DLZPRHOO Online Program Request Handler 
DLZMMSGT Message module for error and informational messages 


Control Blocks 

ARGO ARGO parameter list 

DBPCB DL/I Program Control Block 

DIB User DL/ interface block 

EIPL EIP parameter list 

HLPIL HLPI parameter list 

PATH Path header control block 

SDIB System DL/I Interface block 
_ SSA Segment Search Argument control block 

( , SSAP SSA path call appendage block 

~ SSAX SSA extension block 

UIB User Interface Block 

Normal Entry Point 


_ The only entry point to this module is DLZEIPI 
Entry Register Contents 
( | Ri  HLPI parameter list address 
- R7  CICS/VS CSA address 
R13 Register save area address 
R14 Caller’s return address 
R15 Entry point of DLZEIPOO 
Exit Register Contents 


1 R14 Caller’s return address 
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Application Control Blocks Creation and Maintenance 





DLZUACBO - ACB Creation and Maintenance 


The application control blocks creation and maintenance utility creates the internal 
control blocks required by the DL/I application program. Using the PSB and 
DBDs as input, this utility creates DL/I internal format control blocks as output. 
These output control blocks must be link edited into the VSE Core Image Library, 
either private or system, as specified by the user. These blocks contain information 
about the data bases and the programs which use them. They describe some device 
and media characteristics, the stored data structures, and the logical data structures 
as seen by both the system and application programs. The program accepts control 
card input to determine what functions are required. For the DL/I-SQL/DS user, 
if requested, all DBD and PSB data definitions will be collected and stored into the 
DL/I Documentation Aid SQL/DS tables. 


The logic flow is as follows: The control card input stream is processed and each 


feo 
card is syntax-checked. A sorted list of requested blocks is built in main storage. ‘ A 


Each PSB name specified on the control card is inserted into the list. es 


Each name on the constructed build list is then passed to the application control . 
blocks builder module DLZDLBLO to have blocks constructed. Addresses are 
relocated relative to zero and the completed blocks are written to a SYSPCH or 
SYSLNK data set. : - 


Blocks and Tables - DLZUACBO 


Program control parameter block 
PST 

SCD 

PDIR 

USERIDCB 

PSBSQLIO 





Interfaces - DLZUACBO 


This module interfaces with the following modules: 





DLZUSCHO Called to create and search sorted PSB lists 
DLZLBLMO Called to format prebuilt messages 
DLZDLBLO Called to build and output control blocks for a PSB 


Register Contents 


RO-R1 PARM registers 

R2-R8 Work registers 

R9 Pointer to PST 

R10-R11 Work registers | 

R13 Pointer to save area and primary base register 


R14-R15 —-_ Operating system linkage registers 
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DLZUSCHO0 - ACB Maintenance Binary Search / Insert 


The function of module DLZUSCHO is to create and search sorted lists in dynamic 
(GETVIS) storage using the binary search technique. Any number of lists may be 
created simultaneously (subject only to the limit of available storage). A list entry 
may be any length from 1 to 256 bytes. The key or sequence field may also be 
from 1 to 256 bytes in length and may be located anywhere in the list entry. The 
only restriction on keys is that they must consist of a single contiguous string of 
bytes within the list entry. 





The number of entries in any list is limited only by available storage. However, 
since this routine physically moves data in storage to make room for new entries, it 
becomes less efficient as the number of entries increases. For large numbers of 
items, it might be best to consider sorting the entries in the conventional fashion. 


This module is called by DLZUACBO to build and maintain the list of PSBs to be 
processed. 


( - ~ Operation 
1. The following interface is used to initiate a new list: 
L 15,=V(DLZUSCHO) 
LA 1,PARMS 
BALR 14,15 


where PARMS is a 3-word list whose contents are as follows: 


( . | Word 1 = length of the list entry 
ae Word 2 = offset from the beginning of the list entry to the key/sequence 
field 


Word 3 = length of the key/sequence field 


On return, register 1 contains the location of the new list control block. (This 
location must be submitted to the search routine on all subsequent search or 
insert calls for this list.) 


( 2. The following interface is used to insert an entry into a list: 
L 15,=V(INSRCH) 


A 1,INPARMS 
BALR 14,15 


where INPARMS is the location of a two-word list whose contents are: 


Word 1 = address of the list control block 
Word 2 = address of the list entry to be inserted 


On return from INSRCH, register 15 contains zero if the entry was 
successfully inserted, and register 1 contains the location at which the insert 
was made. 


If the entry was not inserted (because a duplicate was found), register 15 
contains 8, and register 1 contains the location of the duplicate entry. 





3. The following interface is used to locate an entry in a list created by INSRCH: 
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L 15,=V(LOCSRCH) 
LA 1,LOCPARMS 
BALR 14,15 


where LOCPARMS is the location of a two-word list whose contents are: 


Word 1 = address of the list control block 
Word 2. = address of the search argument (key) 


On return from LOCSRCH, register 15 contains zero if an entry containing the 
search argument in its key field was found, and register 1 contains the location — 
of this entry. If no entry was found, Register 15 contains 4 and register 1 
remains as it was on entry to LOCSRCH. 


The following interface is used to delete all storage obtained by OPENSRCH 
and INSRCH for a given list: 


L 15,=V(CLOSESCH) 
L 1,LOCPARMS 
BALR 14,15 


where LOCPARMS contains the location of the list control block for the list to 
be deleted. | 


Control Blocks - DLZUSCHO 


List control block 
Sorted list block. 


Programming Note — 


If some number of entries have been placed in a list through repeated calls to 





INSRCH, they can be retrieved in sorted order by locating the first block by way of 
CHAINLOC and all subsequent blocks by way of their CHAIN fields. The entries 
are in order (low to high logical sequence) with the lowest entry in block 1 entry 1, 
next in block 1 entry 2, etc., with the highest entry located in the last-used slot in 
the last block. | 
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DLZLBLMO - ACB Generation Error Message Handler 


( This module is used to contain, select, and format error messages for the ACB 
generation facility. Given a message number in register one, the module will select 
the matching message and format it by inserting an arbitrary number of additional 
character strings addressed by specified registers. The ’PRTMSG’ routine in 
module DLZUACB0O is called to print the message. Control is returned to the 
caller. 


Entry Register Contents - DLZLBLMO 


Rl Message number 
R13 Save area 

R14 Return address 
R15 Entry point 


Additionally, any registers are passed that have been defined to contain pointers to 
ae character strings to be inserted into the message. These are generally (but not 
( | always) registers 5, 6, and 7. 


External Routines Called - DLZLBLMO 


PRTMSG - Entry point to the print routine in module DLZUACBO. 
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DLZDLBLO, DLZDLBPP, DLZDLBLI, DLZDLBDP, DLZDLBL2, DLZDLBL3 - ACB BUILDER 


3-108 


The four modules, (DLZDLBLO, DLZDLBL1, DLZDLBL2, and DLZDLBL3), 


are responsible for building all the control blocks for a given PSB and its associated 
DBDs, and for outputting them to either SYSPCH or SYSLNK in a format that 
allows LINKing them into the VSE core image library. 


The two modules, (DLZDLBPP and DLZDLBDP), are responsible for collecting 
all the data definitions for the DBDs and PSBs and storing them into the DL/I 
Documentation Aid SQL/DS tables. 


The first module, DLZDLBLO, loads the specified PSB and calls module 
DLZDLBPP, if the USERID parameter was specified on the BUILD statement. 


Module DLZDLBPP creates the PPBBASICDATA, PSBPCBDATA, 
PSBSEGMENTDATA, and PSBFIELDDATA records from information retrieved 
from the DL/I PSB control blocks and inserts them into the appropriate DL/I 
Documentation Aid SQL/DS tables. After all processing is completed for the PSB, 


control is returned to DLZDLBLO. 


Module DLZDLBLO then builds the PCBs and SDBs for segments identified via | 
SENSEG statements at PSBGEN time. It then passes control to module 
DLZDLBL1. 


Module DLZDLBL1 loads the DBDs for all referenced data bases and calls module 


DLZDLBDP, if the USERID parameter was specified on the BUILD statement. 


| Module DLZDLBDP creates the DBDBASICDATA, DBDACCESSDATA, 


DBDSEGMENTDATA, DBDLCHILDDATA, and DBDFIELDDATA records 
from information retrieved from the DL/I DBD control blocks and inserts them 


| into the appropriate DL/I Documentation Aid SQL/DS tables. After all 


processing is completed for the DBD, control is returned to DLZDLBL1. 


Module DLZDLBL1 then builds the associated DMBs (for all but logical DBDs). 
It then processes the SDBs associated with each DBD, copying any required 
information from the physical definitions and building any required generated 
SDBs. Control is given to module DLZDLBL2 when all DBDs have been 
processed. 


Module DLZDLBL2 finishes the processing of the SDBs. It acquires and builds 
the intent list, including propagation of intent, and initializes any field level 


sensitivity control blocks required. The PCB is moved to its proper location and 


the JCB, level table, and DSGs are built. Control is passed to module 
DLZDLBL3. 


The last module, DLZDLBL3, builds the index maintenance PCB if one is 
required, performs some additional clean-up, and packages and outputs the DMBs 
and the PSB to either SYSLNK or SYSPCH. If a utility PSB is required, module 
DLZDPSBO is called to build it, and module DLZDLBLO is re-called at entry 
PSBPASS to initialize it. 

Interfaces - DLZDLBLO - DLZDLBL3 


These modules interface with the following modules: 


DLZDPSBO Called to build a utility PSB 
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DLZLBLMO Called to format and write error message 
( ; Entry Register Contents 


R1 = Address of parameter list 
R13 Save area address 

R14 Return address 

R15 Entry point address 


| Parameter List 


PST address 
USERIDCB address 


Exit Register Contents 
All registers are restored. The return code appears in PSTERCOD of the PST. 


( , PSTERCOD = 0 Valid return 
- PSTERCOD # 0 Errors encountered 


DLZDPSBO - Utility PSB Builder 


This module is called by the application control blocks builder module 
(DLZDLBLO) to dynamically construct a special utility PSB from a specific DBD. 
The created PSB is in PSBGEN format. A GETVIS is issued to obtain storage 
necessary to.create the PSB. The created PSB is sensitive to all segments for the 


( data base. 
b Entry Register Contents 


Ri Address of parameter list 

R13 Save area address 

R14 Return address of DLZDLBLO 
R15 Entry point 


The parameter list consists of a DBD address and a PSB address. 
( oe Exit Register Contents 


All registers are restored except R15 which contains a return code passed to 
DLZDLBLO. | 


R15 =O Valid return 
R15 #0 Errors encountered 


Data Base Logical Relationship Utilities 


DLZURPRO - Prereorganization 


The purpose of this module is to examine input control cards provided by the user, 
and, based upon the information contained in DL/I control blocks, to generate a 
control data set for use by other programs concerned with the resolution of logical 
and index relationships. 
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DLZURGSO - DB Scan 
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The input control cards for this program indicate the names of data bases that a 
user wishes to initially load or to reorganize. The control blocks for each segment 
of each data base listed on an input control card are examined. For each logical 
relationship in which a segment participates, a prefix resolution check is performed. 
This check consists of generating a bit map reflecting the prefix fields involved in 
the logical relationship, and then checking the bit map against a table that indicates 
the fields which must be resolved for the types of data bases in which the logical 
parent and the logical child reside. For purposes of the prefix resolution check, the 
type of data base is considered to mean an initially loaded data base, a reorganized 
data base, or another data base (not reorganized or loaded, but logically related to 
a data base that is reorganized or loaded). If the bit map and the table entry match 
yields a nonzero value, prefix fields must be resolved in either or both the logical 
parent and logical child. | 


If prefix fields must be resolved, a control list entry is built for the logical parent 
and/or the logical child. This control list entry indicates the fields to be resolved, 
the work data set record format options to use, etc. As control data set list entries 


are built, each record is calculated to determine a maximum record length. The 


largest size is saved and put into field LESRTSZE when the control data set is 
written. The prefix resolution utility (DLZURG10) reads this value and passes it 
to SORT. 

After generating the control list, the data bases to be scanned, loaded, or 
reorganized are listed. The scan list is punched if requested. The control list is 
then written to the control data set. 

Control Blocks - DLZURPRO 


e Control file consisting of one or more records, each with a pointer to the next 
block of control file and an area containing one or more control list entries. 


¢ List entry. 
e Secondary list entry. 


Interfaces - DLZURPRO 


_ The interface with the reorganization message module (DLZURGMO) is through 


the tables provided in that module. See the description of that module for table — 
format. 


The interface with batch initialization to load the required blocks dynamically is 
accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURPRO 
This program audits all input control cards and verifies the consistency of DL/I 


control blocks. Any errors encountered cause one or more messages to be 
generated. Refer to DL/I DOS/VS Messages and Codes for details. 


This module searches one or more data bases for all segments that are involved in 
logical relationships. For each such segment, DLZURGSO generates one or more 
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output records, depending upon the relationships in which that segment is involved. 
a The output work data set of this program serves as one of the inputs to the prefix 
( resolution utility. 


This program scans data bases as indicated either by scan control cards or by the 
control data set generated by the prereorganization program. If scan control cards 
are present, they are checked for consistency with the DL/I control blocks. Data 
base scanning is done by segment type for HDAM and HIDAM data bases. If scan 
control cards are provided for segments in an HDAM or a HIDAM data base, work 
data set records are generated only for those segments listed on scan control cards. 


After the segments are read into core, control is passed to the work data set 
generator module (DLZDSEHO). DLZDSEHO generates any necessary output 
work data set records based upon information contained in the control data set. It 
then returns control to this program (DLZURGSO). 


Interfaces - DLZURGSO 


( , Module DLZURGSO interfaces with the reorganization message module 
- (DLZURGM6O) through the tables provided in that module. See the description of 
that module for table format. 


The interface with the work data set generator module (DLZDSEHQ0) is as 
described in the documentation for that module. 


The interface with the buffer handler module (DLZDBHO0) is as described in the 
| documentation for that module. The buffer handler module is used to directly 
( e access records in a data base. 


The interface with batch initialization to load the required blocks needed for 
processing is accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURGSO 


This program audits all input control cards and verifies the consistency of DL/I 
control blocks with the control data set. Any errors encountered cause one or 
more messages to be generated. Refer to DL/I DOS/VS Messages and Codes. 


C_ ABENDs - DLZURGSO 


If an input card is read with ““ABEND” in columns 1-5, a dump (PDUMP) will be 
taken if an error condition is detected. This should always be done on a rerun of 
this utility if an APAR is to be submitted because of an error return code. 


DLZDSEHO0 - Workfile Generator 


This module generates the work file records that are required to resolve logical 
and/or index relationships after one or more data bases have been initially loaded 
or reorganized. This program is used by the HD reload (DLZURGLO) and scan 
(DLZURGSO) utility programs provided by DL/I DOS/VS. It is also called 
automatically by internal DL/I modules (DLZDDLEO and DLZDXMTO0O) when a 
data base is initially loaded by a user-written program. 


The general operation of this program consists of creating one or more work file 
records for each segment that is initially loaded, reloaded, or scanned, if that 
segment is involved in at least one logical or index relationship. The work file 
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records reflect the new location of each segment and, if the data base is being 

reloaded, its old location. Each work file record also contains related information 
that indicates the data bases and segments involved in the logical or index | | 
relationship described by the record, their old pointer values, etc. SS 


This program generates all work file records that are used as input by the data base 
prefix resolution module (DLZURG10). The format of each output record 
generated by this program (DLZDSEHO) is as described for input of the data base 
prefix resolution module (DLZURG10). 


This module contains a CSECT which is also used by scan (DLZURGSO) and 
index maintenance (DLZDXMTO) to open the work file DTF. Within this routine 
is a subroutine (FINDDTF) which is also used by scan to determine the correct 
DTF (disk or tape) to use for a given file depending on the assignment for it. 


DLZDSEHO is loaded by batch initialization when the PROCOPT is ‘load’ or when 
HD reload or scan are to be executed. The primary entry point address is found in 
SCDDSEHO. The DL/I termination routine will close the work data set. a 


Interfaces - DLZDSEHO _ | _ 
The first seven fullwords of the CSECT contain information to be used by the 


modules which interface with DLZDSEHO. These words concern the work data set 
and entry points or addresses needed by scan (DLZURGSO). 





Displ. from 

Entry Point 

DLZDSEHO0 Contents 

-28 Base address of this module 

-24 | Address of LPLCSV - information needed by scan 

-20 Address of TEST - entry point when called by scan 

-16 Address of FINDDTF - a subroutine used by scan 

-12 Address of OPENWORK - entry point of routine to open 

| WORKFIL file 

-8 Address of work area available to build output record 

-4 Address of opened work file DTF. It this field is zero, the file is 
not open. 

e When invoked during initial data base load or during data base reorganization, QF 


the following interface is used: 
Entry Point | 
DLZBEGIN (Address found in SCDDSEHO) 
Register Contents 
R1 PST 
R13 Save area 
R14 Return address 
R15 Entry point address 


Control Blocks 





J CBPRESF - Operation type UNan or FUNCISRT) | 
PSTWRK1 - SDB address 
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Exit 


Return to calling program with a return code in register 15. The values are: 





0 (X‘0’) Successful completion 

4 (X‘4’) WORKFIL could not be opened (IGN was specified). This is not an 
error condition if the user does not wish to create a work file. 

8 (X‘8’) Sort field size exceeded 

12 (X‘C’) GETVIS error occurred 

16 (X‘10’) Invalid DL/I control blocks 

20 (X‘14’) Length of PCB key feedback area is zero 

24 (X‘18’) I/O error occurred on WORKFIL or CONTROL data set. 

28 (X‘1C’) CONTROL or WORKFIL data set could not be opened (invalid or 
unassigned device) 


e When the OPENWORK routine is called by scan (DLZURGSO) or index 
maintenance (DLZDXMTO), the following interface is used: 


( ; ; Entry Point 
OPENWORK 
Register Contents 
R13 Caller’s save area address 


R14 Return address 
R15 Entry point address. 


( : Exit 
All registers are restored to entry condition. Return is made to the address in R14 
plus the displacement 0 if an unknown or invalid device is specified or 4 if 
WORKFIL is successfully opened. 
e When invoked during a data base scan, the following interface is used: 

- Entry Point 

( / TEST 

Register Contents 


R3 _—_— Location for prefix parameter list area for segment just read 
R5 Secondary list entry 


R6 PSDB 
R7 SDB 
R9 PCB 
R10 PST 


R11 Location of DTF for work data set (must be open) 
R12. Base address for DLZDSEHO 

R13 Save area for use by DLZDSEHO 

R15 Entry point TEST 


Control Blocks 





PSTWRK1 Byte 0 Operation type (FUNCIHPS) 
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PSTWRK1 Byte 1-3 SDB address 
Exit 


Return to calling program with return code in register 15 as for entry point 
DLZBEGIN. 


e When the FINDDTF routine is invoked by scan, the following interface is 
used: 


Entry Point 
FINDDTF 
Register Contents 


RO = System logical unit number in hex 

R2 Address of disk DTF oo 
R3 Address of tape DTF (or 0, if not an option) oe 
R13 Caller’s save area address 

R14 Return address 

R15 Entry point of FINDDTF 


Exit 
Register 15 - address of chosen DTF 


All other registers are restored to entry conditions. Return is made to the address ane 
in R14 plus the displacement 0 if an unknown or invalid device specified or 4 if ry gf 
successful completion. When error return to R14+0 is made, R15 is zero if IGN 7 
was specified, or nonzero otherwise. 


DLZURGIO0 - Prefix Resolution 


This module accumulates the information generated on work data sets during the 

load and/or reorganization of one or more data bases. It produces an output data 

set that contains the prefix information needed to complete the logical and/or 

index relationships defined for the data base(s). aa 


Operation of this program centers around at least one and possibly two, phases of 
the DOS Sort/Merge program execution. In the first phase, the Sort/Merge 
program is attached by this program. All work data set records generated during 
data base initial load, reorganization, or scan are input to the sort program. All 
input records are sorted such that all work data set records associated with a given 
occurrence of a logical parent follow the work data set record describing that 
logical parent. On exit from the first phase sort, this program has available the 
information needed to resolve the logical parent pointers that reside in logical 
children, the counter field and logical child pointers in the logical parent, and the 
logical twin pointers in the logical child (if a sequence field is carried in the work 
data set record). Any unnecessary records are dropped before entering the second 
sort phase. The second phase of this program is not executed if only index 
relationships need to be resolved. 


In the second phase of this program, the Sort/Merge program is again attached. In 
this sort execution, the output records from phase one are sorted according to data 
base name and physical location within data base of each segment that must be 
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updated by the prefix update program. On exit from the second phase sort, any 
remaining logical twin pointers are resolved, and further accumulation of logical 
parent counter fields is performed. Any records not actually necessary to update a 
data base are dropped at this time. 


This program uses the control data set generated by the prereorganization program 
to govern its general operation. That is, the lists in the control data set indicate 
prefix fields to be resolved, etc. The pre-reorganization utility also calculates the 
maximum record length for SORT records and stores the size in the control data 
set (LESRTSZE). The prefix resolution utility reads this value and passes it to 
SORT. 


Control Blocks - DLZURG10 


e Input work file record - DLZURWF1 
e Output work file record - DLZURWF3 


Error Codes and Handling - DLZURGI0 


This program audits all input work data set records for consistency and for 
correspondence with the control list provided with the control data set. Any errors 
encountered cause one or more messages to be generated. Refer to the DL/I 
DOS/VS Messages and Codes. 


DLZURGPO - Prefix Update 


This module reads the input work data set provided by the data base prefix 
resolution module, reads the data base segment indicated by each record of the 
input work data set, and applies the prefix changes indicated by the work data set 
record to the segment read into main storage. 


The input work data set is sorted in data base and segment physical location order 
by the data base prefix resolution module (DFSURG10) to afford most efficient 
update of each data base by this module. The format of each input record read by 
this program is as described for output of the data base prefix resolution module. 


One or more input work data set records may be present for each segment that 
participates in logical or index relationships. The records are successively applied 
to the prefix of each segment affected, and the updated segment is written to its 
storage device. The prefix fields updated by this program include the logical 
parent, logical twin, and logical child pointer fields, and the counter fields 
associated with logical parents. 


Interfaces - DLZURGPO 


The interface with the reorganization message module (DLZURGM6O) is through 
the tables provided in that module. See the description of that module for table 
format. 


The interface with the language interface module (DLZLIOO0) is as described in 
the documentation for that module. The DL/I “ISRT” and “GHU” calls are 
issued by this program. 


The interface with the buffer handler module (DLZDBHO0) is as described in the 
documentation for that module. The buffer handler module is used to directly 
access records in a data base. 
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The interface with batch initialization to load the required blocks dynamically is 
accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURGPO 


This program audits all input work data set records for consistency with data base 
control blocks, checks all data base update operations, and checks input control 
card information. Any errors encountered cause one or more messages to be 
generated. Refer to the DL/I DOS/VS Messages and Codes. 


-DLZURGM0 - DB Reorganization Message 


Trace Print Utility 


This module contains messages used by the following utilities: preorganization 
(DLZURPRO), scan (DLZURGSO), prefix resolution (DLZURG10), and prefix 
update (DLZURGPO). The module consists of the two tables defined below. 
Control Blocks - DLZURGMO 

1. Message Length and Offset Table 


One 4-byte table entry exists for each message. Each 4-byte entry contains 
the message length and offset. 


2. Message Table 
One variable-length entry is present for each message. Each entry contains the | 
text of the message. The length is found in the message length and offset 


table. | 


Interfaces - DLZURGMO 


_This module contains messages that are used by the following modules: 


DLZURPRO §_(prereorganization) 
DLZURGSO (scan) 
DLZURG10 (prefix resolution) 
DLZURGPO (prefix update) 


DLZTPRTO0 - Trace Print Utility 


The Trace Print Utility is used to format and print trace entries previously written 
to a tape or disk by the CICS/VS extra partition dataset facility. The format of the 
output records on SYSLST is the same as those written directly to SYSLST by the 
Trace Facility. Trace Print Utility processing is as follows: 


1. The utility opens the reader (SYSIN), printer (SYSLST), and console log 
(SYSLOG). 


2. A read is issued to SYSIN, looking for a TI statement. If present, the fields on 


the statement are validated and saved. Further reads are issued to SYSIN until 
EOF is returned. All statements read from SYSIN are recorded on SYSLST. 


3. When End-of-File is reached on SYSIN, the reader is closed. 
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4. A GETVIS is issued to acquire sufficient storage for two trace input buffers. 
The buffer size will either be the default of 32763 bytes, or the size specified 
on the TI statement. 





5. The device assigned for trace input is then checked by the DLZDVCE macro 
routine. If the device is a valid tape or disk, the corresponding DTF is 
modified and the file opened for input. 


6. Trace records are then read from the input file until End-of-File is returned. 


7. Trace entries are processed from the input buffer one at a time until all of the 
entries in the record are printed. If selective output was specified by using a 
TO statement, each entry is checked against the desired selection. If the entry 
passes the selection test, it is printed. If it does not pass the test, it is ignored. 
When the last entry of the record is processed, control is returned to the read 
routine. 


co 8. Any errors detected will be written to SYSLST and/or SYSLOG. If no errors 
( | are detected, a message indicating successful completion is written. 


DL/I Run and Buffer Statistics 


DLZSTIL - DL/I Run and Buffer Statistics 


The run and buffer statistics function captures online (including MPS) DL/I 
system statistics and writes them to the extra-partition CSSL. This data is 
cumulative for the current invocation of CICS/VS and automatically printed during 
( “ CICS/VS shutdown. 


Interfaces 
This module interfaces with the following modules: 
CSAPCNAC - CICS/VS program control routine 
CSASCNAC - CICS/VS storage control routine 
CSATDNAC - CICS/VS transient data control routine 
( 7 Control Blocks - DLZPRCTI 


e CICS/VS - CSA 
e CICS/VS - TCA 


« DL/I-SCD 

« DL/I- BFFL 
¢ DL/I- SBIF 
Normal Entry Point 


The only entry point to this module is DLZPRCT1. 
Entry Register Contents 


R1 RPL address 

R2 STTLPUT subroutine linkage 
R3 STTLCNFG loop control 

R5  DLZSBIF base register 
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R6 DLZBFPL base register 

R8 DFHTCTTE base register | gee, 
R9 DFHTIOA base register | “A ‘ 
R10 DFHTDOA base register | 2, Me” 
R11 DLSSTTL base register 

R12 DFHTCADS base register 

R13} DFHCSADS base register 

R14 External link 


Exit Register Contents 


All registers are the same as on entry except R15, which contains the return 
address. 


Extract Defines Utility 


DLZEXDFP - Extract Defines Utility 


The Extract Defines utility creates an ISQL Routine containing EXTRACT % J 
DEFINE commands. This utility uses the information about the the DL/I 

databases in the DL/I Documentation Aid SQL/DS tables created by the 

Application Control Blocks Creation and Maintenance Utility. 


The logic flow is as follows: Each control statement is syntax-checked and 
processed individually based on the PCB. The DEFINE commands are created and | 
inserted into the SQL/DS ROUTINE table in the following order: 


DEF PCB NAME=xxxxxxxx , PSB= (xxXXXXXX, nnn) , PROC= =XXXXXXXX y aN 
DEF SEGMENT NAME=xxxxxxxx , PCB= XXXXXXXX, PARENT=0 bh 


DEF FIELD NAME=(xxxxxxxx, {SEQ|NOSEQ}), SEGM=xxXxXXXXX, PCB=XXXXXXXX, Ly 
TYPE=x, START=nnnnn,BYTES=nnn | 


(and all other DEFINE FIELD commands associated with this 
segment) 


DEF SEGMENT NAME=xxxxXxxxx, PCB=XxXxXxXXXxXxX, PARENT=xXxXxXXXXXX 
DEF FIELD NAME=(xxxxxxxx, {SEQ|NOSEQ} ) , SEGM=xxxxxxxx, PCB=xxxXxXXXxXX, 
TYPE=x, START=nnnnn, BYTES=nnn i 


(and all other DEFINE FIELD commands essooiated with this 
segment) 


The process for creating DEFINE SEGMENT and FIELD commands is repeated 
until all SEGMENTs have been processed for this PCB. 


DEF PCB NAME=xxxxxxxx, PSB=(xxxxxxx,nnn) , PROC=xxxxxxxx 


(and all DEFINE SEGMENT and FIELD commands associated with 
this PCB) 


The process for creating SEGMENT and FIELD commands is repeated until all 
| PCBs have been processed for this PSB. | 
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Blocks and Tables - DLZEXDFP 


( : EXINOUT DEFINE COMMAND build area 

Mie DLZEXWCB DEFINE work control block 
DSOLCA SOL Communication Area 
SOLDSECT SQL/DS Interface Control Block 


Interfaces - DLZEXDFP 


This module interfaces with the following modules: 


DLZEXDFM Called to format pre-built messages 
ARIPRDID SQL/DS interface module 


Register Contents 


R5 


a R6 
( RT 


R8 
R9 





SOLCA Address 


~ EXINOUT Address 


DLZEXWCB Address 
Error Information 
SQLDSECT Address 
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Main Routine 


DLZEXDFP 





SCNCARDS See 


For Each PCB 


PCBDEF 
For Concatenated Segment 
CSEGBYTS 







SEGDEF 
Si For FLS 
FLSBYTES F 
Loop For Loop For 
Segments Fields 
Loop For Fields 
FINDFLD 
FLDDEFS 
Loop For 
Fields 


For Concatenated Segment 









VLCDEFS LCDEFS 


DPDEFS 


Loop For 
DP Fields 


CKDEFS } 


Loop For Loop For 
CK Fields VLC Fields 


Loop For 
LC Fields 


INSRTFLD 


Figure 3-7. Extract Defines Utility Overview Flow 


General Flow - DLZEXDFP 


DLZEXDFP: Mainline routine that does the utility intitialization. 
SCNCARDS: Scans the control statements and retreives all information. 
PARSER Routines: 


PROPSBNM - Parses the PSBNAME parameter and saves the psbname and 
pebnumber. If the pcbnumber is omitted, it defaults to 1. © 


PROPCBNM - Parses the PPBNAME parameter and saves the pcbname. 


PRODLIPR - Parses the DLIPROC parameter and saves the DL/I procedure 
name. 
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PROREP - Parses the REPLACE parameter and sets the replace flag 
accordingly. 


PROUSRID - Parses the USERID parameter and saves the user-id and 
password. 


PCBDEF:. This routine selects the information required from the DL/I PSB or 
DBD SQL/DS tables and builds the DEFINE PCB command. If REPLACE was 
specified, the old SQL/DS routine by the pcbname being processed in the 
ROUTINE table is deleted (if there) and replaced by these new DEFINE 
commands. If REPLACE was not specified, a check is made to see if the routine 
already exists, and if so, an error message is issued. If no routine exists for the 
specified pcbname, the new commands are inserted. 


SEGDEFS: This routine builds the DEFINE SEGMENT commands and inserts 
them into the ROUTINE table. It determines if the segment is a concatenated 
segment, a virtual logical child, and if the PSB is field level sensitive. If the PSB is 
field level sensitive, routine FLSBYTES is called to calculate the length of the 
segment. If the segment is a concatenated segment, routine CSEGBYTS is called to 
calculate the length of the segment. If neither of the above, the length of the 
segment is obtained from the physical DBD. 


CSEGBYTS: This routine obtains the length of the logical child segment and 
calculates the length of the destination parent’s concatenated key. If the current 
segment is a virtual logical child, it calculates the logical parent’s concatenated key. 
It also obtains the length of the destination parent’s segment. 


For a logical child segment: 
Segment length = logical child segment + logical parent segment lengths 
For a virtual logical child segment: 


Segment length = logical child segment + logical parent concatenated key + 
physical parent concatenated key + physical parent segment lengths 


FLSBYTES: This routine calculates the segment length for a field level sensitive 
segment. It also calculates the starting position of the sensitive field and updates 
the PSBFIELDDATA table entry for this field with the length and the datatype of 
the field. | 


FLDDEFS: This routine builds the DEFINE FIELD commands and inserts them 
into the ROUTINE table. If the segment is a concatenated segment, routines 
CKDEFS, VLCDEFS, LCDEFS, and DPDEFS are called to obtain the field 
information. If the segment is field level sensitive, field information is obtained 
from the PPBFIELDDATA table. For segments other than field level sensitive or 
concatenated segments, the field information is obtained from the physical DBD 
definition. 


FINDFLD: This routine locates the sensitive field and returns the length and 
datatype to the caller. If the segment is not a concatenated segment, the 
information is obtained from the physical field definition. If the segment is a 
concatenated segment, the order of search is: 
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_If segment is a virtual logical child, first select from the virtual logical child. If 
not found or if segment is not a virtual logical child, select from the logical 
child. If still not found, select from the destination parent. 


CKDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the concatenated key. 


VLCDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the virtual logical child segment fields. 


LCDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the logical child segment fields. 


DPDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the destination parent segment fields. 


INSRTFLD: This routine inserts the DEFINE FIELD commands into the SOL/DS 
ROUTINE table. 


| DLZEXDFM - Extract Defines Utility Error Message Handler 


This module is used to contain, select, and format error messages for the Extract 
Defines utility. Given a message number in register one, the module will select the 
matching message and format it, by inserting an arbitrary number of additional 
character strings addressed by specific registers. Control is returned to - 
DLZEXDF?P who in turn calls routine ‘PRTMSG’ to print the message. 


Entry Register Contents - DLZEXDFM 


R1 Message number - 

R2 Message Buffer Address 
R13 Save area 

R14 Return Address 

R15 Entry point 


Additionally, any registers are passed that have been defined to contain pointers to 
| character strings to be inserted into the message. 
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Section 4. Directory 





This table gives the following information for all DL/I DOS/VS modules: 
e Core Image Library 

The name of the DL/I DOS/VS phase residing in the core image library. 
© CSECT(s)/Entry Point(s) 


The CSECTs that comprise each PHASE. Any indented name under a 
CSECT is an entry point within that CSECT. If the indented name is preceded 
by ‘*’, it designates a routine within the CSECT and may, or may not, appear 
on the link-edit map. Unreferenced entry points have been omitted. 


e Relocatable Library 


(_ The name(s) of the module(s) in the relocatable library that are needed for 
linkage editing. 


e Source Library 


The name(s) of the module(s) in the source statement library. For each 
module, source code listings are available on microfiche (under the module 
name). 


Cc e Storage ID 


The storage ID for the applicable modules. This is located near the beginning 
address of each module and is usually followed by the version, release level, 
and latest PTF level applied. 


e Supplementary Information 


The entry SVA means the module concerned is eligible to be loaded into the 
— shared virtual area (SVA). Any other entry in this column is the entry point 
( name that must be present on the END statement when assembling this 
a module, for example, END DLZBEGIN. 


| Note: The figure number shown after the descriptive name refers to the figure 
number of the module’s HIPO diagram in “‘ Section 2: Method of Operation’, 
Data Language/I Disk Operating System/Virtual Storage (DL/I DOS/VS) Logic 
Manual, Volume 2, LY24-5215. 
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System Control Modules 


Core CSECT (S) / ed 
Image Entry Relo Source Storage Suppl 
Library Point (s) Library Library ID Inf 


** Batch Initialization ** (See Figure 2-3.) 
DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCST 
* ERRORMSG | 
DLZMMSGT DLZMMSGT DLZMMSGT DLZMMSGT 
DLZRDR 
DLZCONSL 
DLZRRC10 
*DLZ2MSGT DLZ2MSGT 
*DLZ3MSGT DLZ3MSGT 
*DLZ4MSGT DLZ4MSGT 
*DLZRRAOO 
*DLZPCCOO 
*DLZDBLMO 
* LOADDMBS 
*PCBROUT —_ 
*DLZCPIOO : Ss) 
* DMBLOADR | ee” 


** Batch Nucleus ** (See Figure 2-4.) 
DLZBNUCO SCDCSECT DLZBNUCO DLZBNUCO DLZBNUCO 
SCDSTART 
*DLZIWAIT 
*DLZPRHBO 
*DLZABEND 
DLZEIPIL DLZEIPBO DLZEIPBO DLZEIPBO 


** Online Initialization ** (See Figure 2-5.) | 
DFHDIDL DLIOLIOO DLZOLIOO DLZOLIOO ~ DLZOLIOO 
*DLZCPIOO | 
INITLODR 
DLIOLI10 
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CSECT NS) / 
Entry 
Point (s) 


Relo 
Library 


** Online Nucleus ** (See Figure 2-6.) 


DLZNUCXx 


DLZEIPOO 
DLZODP 
DLZODPOO 
DLZSCHDL 
DLZODPO3 
DLZODPO2 
DLZODPO4 
DLZODPO7 
DLZODPO6 
DLZODPO1 
DLZTKTRM 
DLZTKBAD 
DLZODPO5 
DLZPRHOO 
DLZABNDO 
DLZOLTOO 
DLZOLTO2 
DLZOLTO 1 
DLZOWAILIT 
DLZOVSEX 
DLZERMSG 
DLZODP 10 
DLZODP 1 1 
DLZEIPI 
DLZSTROO 
DLZCOMOO 


DLZCOMO 1. 


DLZLOCOO 
DLZLOCO1 
DLZODPEX 
DLZNUC 
SCDSTART 
DLZEIPL 
DLZMMSGT 
*DLZ2MSGT 
*DLZ3MSGT 
* DLZ4MSGT 
DLZFTDPO 
DLZISCOO 
DLZISCO1 
DLZISCO2 
DLZISCO3 


DLZODP 


DLZEIPOO 
DLZSTROO 
DLZCOMOO 


DLZLOCOO 


DLZMMSGT 


DLZFTDPO 
DLZISCOO 


Source 
Library 


DLZODP 


DLZEIPOO 
DLZSTROO 
DLZCOMOO 


DLZLOCOO 


DLZMMSGT 


DLZFTDPO 
DLZISCOO 


Note: xx is the suffix specified during ACT generation. 


** DL/I Online System Termination ** (See Figure 2-7.) 


DLZSTPOO 


DLZSTPOO 


DLZSTPOO 


DLZSTPOO 


Storage 
ID 


DLZNUCXX 


DLZODPO2 
DLZODPO4 
DLZODPO7 


DLZODPO1 


DLZODPO5 
DLZPRHOO 


DLZOLTOO 


DLZOWAILT 
DLZOVSEX 
DLZERMSG 
DLZODP10 
DLZODP 1 1 
DLZEIPOO 
DLZSTROO 
DLZCOMOO 
DLZCOMO 1 


~ DLZLOCOO 


DLZLOCO 1 
DLZODPEX 


DLZMMSGT 
DLZ2MSGT 
DLZ3MSGT 
DLZ4MSGT 
DLZFTDPO 
DLZISCOO 
DLZISCO1 
DLZISCO2 
DLZISCO3 


DLZSTPOO 


Suppl 
Inf 
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DL/I Facility Modules 
Core CSECT(S)/ 
Image Entry 
Library Point (s) 


Relo 


Library 


** Call Analyzer ** (See Figure 2-8.) 


DLZDLAOO DLZDLAOO 


DLZDLAO 1 


DLZDLAOO 


DLZDLAO 1 


** Retrieve ** (See Figure 2-9.) 


DLZDLROO 
DLZDLR10 
DLZRETNO 
DLZEODCO 
DLZGERCO 
DLZGERO 
DLZGETSO 

DLZCLRPO 
DLZWIPEO 


DLZDLROO 


DLZMOVAO 
DLZMOVBO 
DLZDELTO 
DLZPSDBO 
DLZHUNTO 
DLZSETLO 
DLZBHO 
DLZSSDBO 
DLZNOOPO 
DLZCONCO 
DLZRLNKD 
DLZPOSTO 
DLZSKPGO 
DLZSKPSO 
DLZSKPDO 
DLZSKPEO 
DLZHIDAO 
DLZHDAMO 
DLZHISAO 
DLZSTLAO 
DLZSTLGO 
DLZUPDTO 
DLZKDTEO 
DLZPCHKO 
DLZSSAO 
DLZTAGO 
DLZLTWO 
DLZNOSSO 
DLZISRTO 
DLZVLRTO 
DLZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHSAMO 
DLZALTSO 
DLZFLDO 
DLZLOGRO 


DLZDLRAO 


DLZDLRBO 


DLZRLNKD 
DLZDLRGO 


DLZDLREO 


DLZDLRCO 


DLZDLRFO 


DLZDLRDO 
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DLZDLAOO 


DLZDLAO1 


DLZDLRAO 


DLZDLRBO 


~DLZRLNKD 


DLZDLRGO 


DLZDLREO 


DLZDLRCO 


DLZDLRFO 


DLZDLRDO 


Storage 
ID 


DLZDLAOO 


DLZDLAO 1 


DLZDLRAO 


DLZDLRBO 


DLZRLNKD 
DLZDLRGO 


DLZDLREO 


DLZDLRCO 


DLZDLRFO 


DLZDLRDO. 
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SVA 
DLZEPDLA 


SVA 


= 
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Core 
Image 
Library 


CSECT(S)/ 
Entry 
Point (s) 


DLZRETKO 
DLZRETIO 
DLZKDRKO 
DLZKDTLO 
DLZUPDCO 
DLZUPDLO 
DLZAPSTO 
DLZYENTO 
DLZYSTCO 
DLZYENDO 
DLZDEQO 

DLZLPSLO 


Source 
Library 


Relo 
Library 


** Toad/Insert ** (See Figure 2-10.) 


DLZDDLEO 


DLZDLDOO 


DLZDDLEO 
HDROUTIN 
VLROUTIN 
HSROUTIN 


DLZDLDOO 
DLZDLDAO 
DLZDLDDO 
DLZDLDRO 


DLZDDLEO DLZDDLEO 


oe ** Delete/Replace ** (See Figure 2-11.) 


DLZDLDOO DLZDLDOO 


** Index Maintenance ** (See Figure 2-12.) 


DLZDXMTO 


( ** HD Space Management ** (See Figure 2-13.) 


DLZDHDSO 


DLZDXMTO 


DLZDHDSO 
*GETSPACE 
*CALCSRLM 
* SRCHPOOL 
* SRCHBTMP 
*FRESPACE 
* SRCHBLK 
* FORMAT 
*BITMPLOC 
*BITMPOFF 
*BITMPON 
*DEVCHARI 
DFSRLO30 
SNAPDCB 
SNPSW 
SNPCNT 


DLZDXMTO DLZDXMTO 


DLZDHDSO DLZDHDSO 


** Open/Close ** (See Figure 2-14.) 


DLZDLOCO 





DLZDLOCO 


DLZDLOCO DLZDLOCO 
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Image Entry Relo 
Library Point (s) Library 


** DB Buffer Handler ** (See Figure 2-15.) 
DLZDBHOO DLZDBHOO DLZDBHOO 
*MATNROUT 

ROULINK 
* PREPENQ 


Source 
Library 


DLZDBHOO 


* PREPDEQ 
*ABEXIT 
* BOTTOUSE 
* ALLDEQ 
* BFFERREL 
*RETURN 
DLZDBHO2 
*WRITE 
* READ 
*HSREAD 
*HSWRITE 
*LOWRITE 
* PUTKY 
*MSPUT 
*STLEQ 
*STLBG 
* GETNX 
DETIOERR 
*TSTPST1 
DLZDBHO3 
*MRKEMPT 
*PGUSR 


-DLZDBHO2 DLZDBHO2 


. DLZDBHO3 DLZDBHO3 


** DB Logger ** (See Figure 2-16.) 
DLZRDBLO DLZRDBLO DLZRDBLO 
| DLZIDBLO 
IOFILA1 
LOGOUT 
LSCDADDR 
IJFUZZZN 
LJFUZZZZ 
IJ2Nnnnn 
ONLLOGWR 
(DLZRDBLO) SAVE 
PRIVECB 


DLZRDBLO 


IJFUZZZN 


DLZRDBLO DLZRDBLO 


** CICS/VS Journal Logger ** (See Figure 2-17.) 


DLZRDBL1 DLZRDBL1 - DLZRDBL1 DLZRDBL1 
DLZIDBLO 

** Queuing Facility ** (See Figure 2-23.) 

DLZQUEFO DLZQUEFO DLZQUEFO DLZQUEFO 

DLZQUEFW DLZQUEFW DLZQUEFW DLZQUEFW 


| ** Field Level Sensitivity Copy ** (See Figure 2-41.) 
DLZCPY 10 DLZCPY 10 DLZCPY 10 DLZCPY 10 
DLZSEGCV 
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DLZDBHOO 


DLZDBHO2 


DLZDBHO3 


DLZRDBLO 


DLZRDBL1 


DLZQUEFO 
DLZQUEFW 


DLZCPY 10 
DLZSEGCV 
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MPS Control Modules 


Core CSECT(S) / 

Image Entry Relo Source 
Library Point.(s) Library Library 
** MPS Start Transaction ** (See Figure 2-18.) 
DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO 


** Master Partition Controller ** (See Figure 2-19.) 
DLZMPCOO DLZMPCOO DLZMPCOO DLZMPCOO 


** Batch Partition Controller ** (See Figure 2-20.) 
DLZBPCOO DLZBPCOO DLZBPCOO DLZBPCOO 
DLZLIOO0O 


** MPS Batch Initialization ** (See Figure 2-21.) 

DLZMPIOO DLZMPIOO DLZMPIOO DLZMPIOO 
*DLZMPRH 
*DLZMINIT 
*DLZMTERM 
*DLZ2MSGT 
*DLZ3MSGT 
*DLZ4MSGT 
*DLZMMSG 
* DLZMABND 
DLZCONSL 
DLZDIMOD 
DLZEIPI 
DLZMMSGT 


DLZEIPBO 
DLZMMSGT 


DLZEIPBO 
DLZMMSGT 


** Stop Transaction ** (See Figure 2-22.1.) 


DLZMSTPO DLZMSTPO DLZMSTPO DLZMSTPO 


** Purge Temporary Storage Transaction ** (See Figure 2-22) 


DLZMPURO DLZMPURO DLZMPURO DLZMPURO 
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DLZMSTRO 


DLZMPCOO 


DLZBPCOO 


DLZMPIOO 


- DLZ2MSGT 


DLZ3MSGT 
DLZ4MSGT 


DLZEIPBO 
DLZMMSGT 


DLZMSTPO 


DLZMPURO 


Suppl 
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Data Base Recovery Utilities 


Core CSECT(S) / 
Image Entry Relo Source 
Library Point (s) Library Library 
** DB Data Set Image Copy ** (See Figure 2-25.) 
DLZUDMPO DLZUDMPO DLZUDMPO DLZUDMPO 
DLZPRNT 
DLZSLOG 
PRNTAREA 
IJ2Mnnnn DLZUDMPO DLZUDMPO 
DLZDMPMO DLZDMPMO DLZDMPMO 
IJJFCBZD IJJFCBZD 
IJFSZZWN IJFSZZWN 
IJFVZZWN 


** DB Change Accumulation ** (See Figure 2-26.) 


DLZUCUMO 


DLZUCUMO 
DLZERRTN 
DLZUSPKL 
DLZWORK# 
DLZPRNT 
DLZSLOG 
DLZUCONS 

DLZUCCTO 

DLZUC150 
DLZUEX15 

DLZUC350 
DLZUEX35 

DLZCUMMO 

ITJFSZZWN 
IJFVZZWZ 

IJJFCBZD 
IJJFCIZD 

IJ2Mnnnn 

IJFUZZZZ 


DLZUCUMO 


DLZUCCTO 
DLZUC150 


DLZUC350 


DLZCUMMO 
IJFSZZWN 


IJJFCBZD 


DLZUCUMO 
IJFUZZZ2Z 


DLZUCUMO 


DLZUCCTO 
DLZUC150 


DLZUC350 


DLZCUMMO 


DLZUCUMO 


** DB Data Set Recovery ** (See Figure 2-27.) 


DLZURDBO 


DLZURDBO 
DLZURCCO 
DLZLIOOO 
CDLTDLI 
DLZRDBMO 
IJJFCBID 
IJJFCBZD 
IJJFCIID 
IJFSZZWN 
IJFVZ2ZWN 
ITJ2Mnnnn | 
IJFUZZZN 
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DLZURDBO 
DLZURCCO 
DLZLIOOO 


DLZRDBMO 
IJJFCBID 


IJFSZZWN 


DLZURDBO 
LJFUZZZN 
TIGUICZZ 
LIGOICZZ 


DLZURDBO 
DLZURCCO 
DLZLIOOO 


DLZRDBMO 


DLZURBDO 


Storage 
ID . 


DLZUDMPO 
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DLZUCCTO 
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DLZURDBO 
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DLZRDBMO 
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** DB Change Backout ** (See Figure 2-28.) 


DLZBACKO 


DLZLOGPO 
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DLZBACKO 


READAREA 


DLZPRNT 
DLZSLOG 
DLZRDBCO 
DLZBACMO 
DLZLIOOO 
ASMTDLI 
IJFUB2ZZZ 
LJJFCBZD 


IJJFCIZD 


IJ2Mnnnn 


DLZLOGPO 
DLZLGPCN 
DLZLGPMT 
DLZLPCCO 
DLZLGPMO 
IJJFCBID 


IJJFCIID 


IJFUZZZN 


Relo 
Library 


DLZBACKO 


DLZRDBCO 
DLZBACMO 
DLZLIOOO 


IJFUBZ2ZZ 
IJJFCBZD 


DLZBACKO 


| ** Log Print Utility ** (See Figure 2-40.) 


DLZLOGPO 


DLZLPCCO 
DLZLGPMO 
IJJFCBID 


IJFUZZZ2N 


Source 
Library 


DLZBACKO 


DLZRDBCO 
DLZBACMO 
DLZLIOOO 


DLZBACKO 


DLZLOGPO 


DLZLPCCO 
DLZLGPMO 
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DLZBACKO 


DLZRDBCO 
DLZBACMO 
DLZLIOOO 


DLZLOGPO 


DLZLPCCO 
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DLZURULO 


Data Base Reorganization Utilities 


CSECT(S)/ 
Entry Relo 
Point (s) Library 
** HS DB Unload ** (See Figure 2-29.) 
DLZURULO DLZURULO 
DLZRULMO DLZRULMO 
IJJFCBZD IJJFCBZD 
IJFVZZWN IJFVZZWN 
DLZCONSL 


** HS DB Reload ** (See Figure 2-30.) 


DLZURRLO 


DLZURRLO 
DLZRRLMO 
IJJFCBZD 
IJFVZ2ZWN 


LJFVZZWZ 


DLZCONSL 


DLZURRLO 
DLZRRLMO 
IJJFCBZD 
IJFVZ2ZWN 


** HD DB Unload ** (See Figure 2-31.) 


DLZURGUO 


DLZURGUO 
DLZCONSL 
DLZLIOOO 
CBLTDLI 
DLZRGUMO 
IJJFCBZD 
IJPUZZZN 
IJ GUOCZZ 
IJGUICZZ 


DLZURGUO 


DLZLIOOO 


DLZRGUMO 
IJJFCBZD 
IJFUZZZN 
IJGUOCZZ 
IJGUICZZ 


** HD DB Reload ** (See Figure 2-32.) 


DLZURGLO 


DLZURGLO 
DLZLIOOO 

CBLTDLI 
DLZRGLMO 
IJJFCBZD 
IJGQICZZ 


IJUGVICZZ 


IJFSZZWN 


IJFVZZZN 


DLZURGLO 
DLZLIOOO 


DLZRGLMO 
IJJFCBZD 
IJGQICZZ 


IJFSZZWN 
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DLZURGLO 
DLZLIOOO 


DLZRGLMO 
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DLZURGUO 
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ACB Utility 
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Image 
Library 
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CSECT(S)/ 
Entry 
Point (s) 


Relo 
Library 


** ACB Creation ** (See Figure 2-33.) 


DLZUACBO 


DLZUACBO 
PRTMSG 
DLZDLBLO 
PSBPASS 
DLZDLBL4 
DLZDLBPP 
DLZDLBL1 
DLZDLBDP 
DLZDLBL2 
DLZDLBL3 
FREESTOR 
IJSYSLN 
PCHDTE 
DLZLBLMO 
DLZUSCHO 
INSRCH 
CLOSESCH 
DLZDPSBO 
IJJCPD1N 
IJJFCBZD 
IJJFCIZD 


DLZUACBO 


DLZDLBLO 


DLZDLBPP 
DLZDLBL1 
DLZDLBDP 
DLZDLBL2 
DLZDLBL3 


DLZLBLMO 
DLZUSCHO 


DLZDPSBO 
IJ JCPD1N 
IJJFCBZD 


Source 
Library 


DLZUACBO 
DLZDLBLO 
DLZDLBPP 
DLZDLBL1 
DLZDLBDP 


DLZDLBL2 
DLZDLBL3 


DLZLBLMO 
DLZUSCHO 


DLZDPSBO 
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DLZUACBO 
DLZDLBLO 
DLZDLBPP 
DLZDLBL1 
DLZDLBDP 


DLZDLBL2 
DLZDLBL3 


DLZLBLMO 
DLZUSCHO 


DLZDPSBO 
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** Prereorganization ** (See Figure 2-35.) 


DLZURPRO 


** DB Scan ** 


DLZURGSO 


CSECT(S)/ 


Entry 
Point (s) 


DLZURPRO | 
DLZLIOOO 
ASMTDLI 
DLZURGMO 
IJJFCBZD 
IJGFOCZZ 


DB Logical Relationship Utilities 


Relo 
Library 


DLZURPRO 


DLZLIO00 


DLZURGMO 
IJJFCBZD 
IJGFOCZZ 


(See Figure 2-36.) 


DLZURGSO 
DLZCONSL 
DLZURGMO 
DLZLIO00 
ASMTDLI 
IJJFCBZD 
IJIFCIZD 
IJFSZZWN 
IJFVZZZN 
IIGQICZZ 
LIGVICZZ 
LIGFICZZ 


~DLZURGSO 


DLZURGMO 
DLZLIOOO 


LJJFCBZD 
LJFSZZWN 
LIGQICZZ 


IJGFICZZ 


** Prefix Resolution ** (See Figure 2-37.) 


DLZURG10 


DLZURG10 
DLZURGMO 
IJJFCBZD 
IJJFCIZD 
LJGFICZZ 
LIGQICZZ 
LIGVICZZ 
LJFSZZWN 
IJFVZZZN 
LJFVZZWN 
IJFFZZZN 
IIGQOCZZ 
IJGVOCZZ 
DLZX15S1 
DLZX15S2 
DLZX35S1 
DLZX35S2 


DLZURG10 
DLZURGMO 
IJJFCBZD 


‘TIGFICZZ 


IJGQICZZ 
IJFSZZWN 
IJFFZZZN 
LIGQOCZZ 


DLZURG10 


** Prefix Update ** (See Figure 2-38.) 


DLZURGPO 


DLZURGPO 
DLZURGMO 
DLZLIOOO 
ASMTDLI 
CBLTDLI 
IJJFCBZD 


DLZURGPO 
DLZURGMO 
DLZLIOOO 


IJJFCBZD 
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DLZURPRO 
DLZLIOOO 


DLZURGMO 


DLZURGSO 


DLZURGMO 
DLZLIOOO 


DLZURG10 
DLZURGMO 


DLZURG10 


DLZURGPO 
DLZURGMO 
DLZLIO000 


Storage 
ID 


DLZURPRO 
DLZLIOOO 


DLZURGSO 


DLZLIOOO 
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IJJFCIZD 
IJFSZZWN IJFSZZWN 
IJFVZZZN 
LJGQICZZ IJGQICZZ 
IJGVICZZ 
** Work File Generator ** (See Figure 2-39.) 
DLZDSEHO DLZDSEHO DLZDSEHO DLZDSEHO 
DLZBEGIN 
OPENWORK 
IJFSZZWN IJFSZZWN 
IJFVZZWN 
IJGFICZZ IJGFICZZ 
IJGQOCZZ IJGQOC2ZZ 
ITJGVOCZZ 
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DLZDSEHO 
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Diagnostic and Test Modules 


Core 
Image 
Library 


CSECT(S)/ 


Entry 
Point (s) 


Relo | 
Library 


** System Formatted Dump ** 


DLZFSDPO 


DLZFSDPO 


** DL/I Tracing Facility ** 


user 
chosen 


DLZTRACE 


DLZTRPRO 
IJJFCBIC 


DLZFSDPO 
DLZCBDPO 


user 
chosen 

DLZTRPRO 
IJJFCBIC 


** DL/I Test Program - Batch ** 


DLZDLTXX 


DLITCBL 
DLZSNAP 
DLZLIOOO 
CBLTDLI 
IJGFIZ2ZZ 
IJJFCBID 
IJJFCIID 


DLZDLTXX 


DLZLIOOO 


IJGFIZZ2Z 
IJJFCBID 


** DL/I Test Program - Online ** 


DLZDLTXY 


DLITCBL 
DLZSNAP 
DLZLIOOO 
CBLTDLI 
IJUGFIZZZ 
IJJFCBID 
IJJFCIID 


DLZDLTXY 
DLZLIOOO 


IJGFIZZZ 
IJJFCBID 


** Online Task Formatted Dump ** 


DLZFTDPO 


DLZFTDPO 


DLZFTDPO 
DLZCBDPO 


** Run and Buffer Statistics ** (See Figure 2-43.) 


DLZSTTL 


** Trace Print Utility ** (See Figure 2-42.) 


DLZTPRTO 


DLZSTTL 


DLZTPRTO 
DLZTPRMO 
IJJFCBIC 
IJJFCIZD 
IJFVZZ2ZZ 
IJGVIEZZ 
IJ2Mnnnn 


DLZSTTL 


DLZTPRTO 
DLZTPRMO 


IJJFCIZD 
IJFVZ2Z2Z 
IJGVIEZZ 
IJ2Mnnnn 
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DLZTRACE DLZTRACE 
DLZTRPRO DLZTRPRO 
DLZDLTXX DLZDLTXX 
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DLZDLTXY DLZDLTXY 
DLZLIOOO DLZLIOOO 
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DLZSTTL DLZSTTL 
DLZTPRTO DLZTPRTO 
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Library Point (s) Library Library 
** HD Partial Reorganization Utility ** (See Figure 2-44.) 
DLZPRABC DLZPRABC DLZPRABC DLZPRABC 
DLZPRCLN DLZPRCLN DLZPRCLN DLZPRCLN 
DLZPRCT 1 DLZPRCT 1 DLZPRCT 1 DLZPRCT 1 

COMAREA 

IJJFCBZD IJJFCBZD 

IJJFCIZD 
DLZPRCT2 DLZPRCT2 DLZPRCT2 DLZPRCT2 

WORK1 

COMAREA 

DLZLIOOO DLZLIOOO DLZLIOOO 

ASMTDLI 

CBLTDLI 

PLITDLI 

RPGTDLI 

IJJFCBZD IJJFCBZD 

IJJFCIZD 
DLZPRDBD DLZPRDBD DLZPRDBD DLZPRDBD 
DLZPRDLI DLZPRDLI DLZPRDLI DLZPRDLI 
DLZPRERR DLZPRERR DLZPRERR DLZPRERR 
DLZPRPAR DLZPRPAR DLZPRPAR DLZPRPAR 
DLZPRPSB DLZPRPSB DLZPRPSB DLZPRPSB 
DLZPRREP DLZPRREP DLZPRREP DLZPRREP 
DLZPRSCC DLZPRSCC DLZPRSCC DLZPRSCC 
DLZPRSTC DLZPRSTC DLZPRSTC DLZPRSTC 
DLZPRSTW DLZPRSTW DLZPRSTW DLZPRSTW 
DLZPRUPD DLZPRUPD DLZPRUPD DLZPRUPD 
DLZPRURC DLZPRURC DLZPRURC DLZPRURC 
DLZPRWEM DLZPRWFM DLZPRWFM DLZPRWEM 
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Section 5. Data Areas 


This section describes the major data areas used by DL/I DOS/VS. The 
description of each data area generally includes: 


e Its DSECT name. 

e The symbolic names of the fields and flags. 

e The displacement of each field, in both decimal and hexadecimal. 
e The length of each field. 

e An alphabetic listing of all field and flag names. 

e The hexadecimal code of each flag. 


The data areas are documented in alphabetical order as listed in the Contents of 
this publication. 


This section also describes the DL/I partition in a batch environment and 
illustrates the relationship of the DL/I control blocks. In addition, the description 
and general structure is given for the data management block (DMB), the program 
specification block (PSB), and the DL/I buffer pool control blocks. 


The DL/I Partition and Control Block Relationship 


The DL /I Batch Partition 


The following text describes the DL/I partition in a batch environment and 
illustrates the relationship of the DL/I control blocks described in this section. 


Figure 5-1 on page 5-3 is a map of main storage in the DL/I DOS/VS batch 
partition. Storage is allocated from the bottom or lowest storage address to the top 
or highest storage address of the partition. The eight areas in the DL/I batch 
partition are as follows: 


¢« Area 1 contains the DL/I nucleus. The SCD is the first control block in the 
nucleus and contains the DL/I copyright information. This block also contains 
the entry point address for every module in the DL/I system. The PST prefix, 
PST, and PSB directory (PDIR) are in this area. There is one entry in the PSB 
directory (PDIR). 


¢ Area 2 contains the DL/I program request handler, DLZPRHBO, which is 
loaded during DL/I initialization. It is part of the batch nucleus module 
(DLZBNUCO). 


e Area 3 contains the PSB intent list (PSIL), PSB, and one DMB directory 
(DDIR) entry for each DMB referenced by the PSB. The DMB directory is 


created dynamically during DL/I initialization. 


e Area 4 contains DMBs loaded from the DOS/VS Core Image Library by the 
DL/I Batch Initialization module. Randomizing modules are loaded after the 
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DMBs for HDAM. They are followed by VSAM control blocks, index 
management modules if secondary indexes are used, and by segment 
compression modules if variable length segments are used. 


Area 5 contains the DL/I buffer pool control blocks. These blocks are created 
dynamically. There are one buffer pool prefix, one subpool information table 
for each subpool specified, one DMB subpool directory entry for each DMB, 
and 2-32 buffer prefixes for each subpool specified. 


Area 6 contains the DL/I I/O buffers which comprise the buffer pool. There 
are 2-32 buffers for each subpool specified. Each subpool is aligned on a 2K 


page boundary. 


Area 7 contains the DL/I action modules and the user trace module if 
requested. | 7 


Area 8 contains the user batch application program. 


fo oS 
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DL/I BATCH APPLICATION PROGRAM 8 


PAGE BOUNDARY 
ae 


TRACE MODULE — (USER NAMED) 
SPACE MANAGEMENT — DLZDHDSO 
OPEN/CLOSE — DLZDLOCO 


LOAD/INSERT — DLZDDLEO INDEX MAINTENANCE — DLZDXMTO 
DELETE/REPLACE — DLZDLDOO 


CALL ANALYZER — DLZDLAOO DATA BASE LOGGER — DLZRDBLO 


DL/] RETRIEVE — DLZDLROO 


DB BUFFER HANDLER — DLZDBHOO 


BUFFER POOL (NOTE) 


BUFFER POOL CONTROL BLOCKS (NOTE) 5 


ine eieieeeeencamateeemees oad 
PAGE BOUNDARY VSAM CONTROL BLOCKS, INDEX MANAGEMENT MODULES, 
AND SEGMENT COMPRESSION MODULES 


PAGE BOUNDARY 
EN 











DMB POOL AND RANDOMIZING MODULES 





PSB INTENT LIST AND PSB DMB DIRECTORY (NOTE) 3 


APPLICATION PROGRAM REQUEST HANDLER — DLZPRHBO 





| 


-DL/I NUCLEUS — DLZBNUCO 
SCD — PST PREFIX — PST — PSB DIRECTORY 


LOW STORAGE 
LOCATION DLZRRCOO — PARTLY OVERLAID BY DLZBNUCO 
Se ENT RS 
NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 


Figure 5-1. Map of Main Storage in the DL/I Batch Partition 
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DL/I Control Block Relationship 


The purpose of this section is to show the relationships of the various DL/I control 
blocks and provide a means by which the user can quickly find these control 
blocks. The following discussion references Figure 5-2 on page 5-6 and Figure 5-3 
on page 5-7. (Figure 5-2 on page 5-6 shows the DL/I control block relationships 
in the batch environment; Figure 5-3 on page 5-7 shows these relationships in the 

| online environment.) 





The SCD is the major control block in the DL/I system. It is located in the DL/I 
nucleus. The SCD contains DL/I copyright information, entry point addresses of 
DL/I routines, and pointers to the following DL/I control blocks: 


¢ The buffer pool prefix, which is the first block of the buffer pool control 
blocks. 


| ¢« The PSB directory from which the PSB and PSB intent list may be obtained. 


In a batch system, there is only one PSB directory entry. In an online system, jer 
there may be many PSB directory entries. J 
« The DMB directory. There is one DMB directory entry for each DMB 
referenced by the PCBs. 
e« The first PST prefix from which the first PST may be obtained. There is only 
one PST prefix in a batch system. 
| The PST provides task-local storage for batch and CICS/DOS/VS - DL/1I online 
tasks while they are being served by DL/I. The address of the PST is contained in raat 
the PST prefix. The following pointers are available in the PST: | 
ae 
e Caller’s (user program) parameter list 
- SCD 
e PSB directory for the task 
-e PCB currently being accessed 
fe ‘ 
¢« I/O buffer to be used for the data base call (used by the buffer handler) WY 


¢« Subpool information table assigned to the data base (used by the buffer 
handler) | 


¢ Buffer prefix which points to the I/O buffer containing the segment for the call 
(used by the buffer handler) 


| There is one PSB directory entry and one PSB for each program that may issue 

~DL/I calls or commands. In a CICS/DOS/VS - DL/I online environment, the 
maximum is 255; in batch, there can be only one. The PSB directory entry 
contains address pointers to the PSB and the PSB intent list. 


The PSB intent list is a variable-length control block and contains an entry for each 
DMB referenced by the PSB. Each entry contains the address of the DMB. 





The PSB contains prefix information and one or more PCBs. For each PCB there 
is a JCB, which is made up of the following: JCB prefix, level table, and one or 
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more SDBs. The PCB points to the JCB. The JCB contains working storage for 
the program’s use of that data base and points to the level table. The JCB also 
points to the SDB for the root segment and the VSAM ACB for the data base 
(KSDS ACB if HISAM). The level table contains working storage for DL/I to 
store its positioning data for each level of the data base. The level table points to 
the current level SDB. 


The SDB describes the user’s logical use of the sensitive segment. There is one 
SDB for each segment to which the user is sensitive. Each SDB points to the 


_ corresponding PSDB in the DMB. 


The DMB directory entry contains the address of the DMB. Each DMB contains a 
prefix, one ACB extension for each data set in the DMB (HISAM has two data 
sets), one PSDB for each physical segment type, and one FDB for each field 
defined for a segment. In addition, there is one direct algorithm communication 
table (DMBDACS) if HDAM is used, and secondary list entries if HIDAM or 
HDAM with index or logical relationships is used. 


The DMB prefix contains: 
e A two-byte relative offset to the first PSDB 


- A two-byte relative offset to the end of the last PSDB+1, which is either the 
first secondary list entry (HIDAM) or the first FDB 


e A four-byte pointer to DMBDACS if HDAM 


The ACB extension contains information about the data set as well as pointers to 
the VSAM ACB and RPL for the data set. Each PSDB contains: 


¢« A pointer to the first FDB for the segment 
¢ A pointer to the SDB for the active PCB which is sensitive to this segment 


type. If more than one PCB is sensitive to this segment type, the address of 
the SDB for the next PCB is contained in the active PSDB. 


~ The DMBDACS contains the address of the user’s randomizing routine; most of 


the secondary list entries point to the DMB directory for the described index or 
logically related data base. 


The following items may be obtained from the buffer pool prefix: 


e« The first subpool information table (immediately following the buffer pool 
prefix) 


« A pointer to the first buffer prefix 
« A pointer to the first DMB subpool directory entry 


The buffer prefix contains a pointer to the I/O buffer which it references. 
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PSB Intent List 


DMB Prefix 
2 (02) DMBLENTB 


0 (00) PSILDIRA 
4 (04) DMBSECTB 
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ACB Extensi 
edad 8 | PSB Directory 
HISAM ESDS BELGIAN! 20 (14) PDIRSILA 
8 (08) PDIRADDR 
ACB (VSAM) Ls see eet ees aes, eek es Ree 
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Module 


User Compression 
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16 (10) JCBTRACE 
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Level Table 
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24 (18) LEVFLD 


User Index Module 
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Subpool Information 
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Subpool Information 
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DMB SP DIR 
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Notes: 


Field Exit Routine 





Table Entry 1 2. JCBTRACE functions and return codes, 
. Pointer STXI END ; 
12 (OC) FERTRTLG 3. Pointer TAB save area 
4. Pointer of DMB log module, 
5, Pointer to User Parameter List. 
- 6. PSTFNCTN and PSTRTCDE give the internal function and return code _ 
User Field ; 
Exit Routine resulting from a call, 
7. Pointer to requested code. 


8. Address of SCD. 


9. These ACBs may not be valid at the time of adump, The VSAM data sets 
may have been closed. 


1. PCB shows the processing option from PSBGEN and segment name feedback. 
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72 (48) PSTIOPRM 
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Notes: 


1. PCB shows the processing option from 
PSBGEN and segment name feedback. 


JCBTRACE functions and return codes. 
Pointer STX!IT ABEND save area. 
Pointer to DMB log module. 

Pointer to User Parameter List. 


PSTFNCTN and PSTRTCDE give the 
internal function and return code 
resulting from a call. 


i a a 


7. Pointer to requested code. 
8. Address of queuing facility work area. 
9. Address of SCD. 


10. The ACBs may not be valid at the time 
of a dump. The VSAM data sets may 
have been closed. 
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Data Management Block - DMB 


General Structure 


A skeleton DMB is created during DBD generation (DBDGEN) as part of the 
DBD. The DMB consists primarily of a description of each segment contained in 
the data base and information concerning the physical data base description. This 
is contained in ACB extensions or, in the case of HSAM, in DTFs. The DBD is 
loaded into storage by the DL/I application control blocks creation and 
maintenance utility, which builds the DMB from the DBD created by DBDGEN. 
The DMB is then cataloged and link edited into a core image library. The DMB is 
moved to its execution-time location in the DMB pool by the application control 
blocks load and relocate routine (DLZDBLMO). 


The DMB consists of the following sections: 

« A prefix section containing primarily offsets to subsections of the DMB 

« An ACB extension. For an HISAM organizaton, there is a pair of ACB 
extensions for each data base; a KSDS ACB and an ESDS ACB. If the data 
base contains only root segments (SHISAM), only the KSDS ACB extension is 
created. The ACBs are generated only when the blocks are loaded for 
execution by the DLZDBLM6O routine from the information in the ACB 
extensions. | | 

« A DTF extension if SHSAM or HSAM for input and output file 

« A direct algorithm communication table if HDAM 

e A compression section for each compressable segment 

e An index maintenance parameter section for each secondary exit routine 

¢« A physical segment description block 

e A secondary list to describe indexed fields or logical relationships. 


« Field description blocks describing each field in each segment 


e A tape or DASD I/O module if SHSAM or HSAM. This module is included 
by the ACB utility. 


The general structure of the DMB is shown in Figure 5-4 on page 5-9. 
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Each DMB section is shown as a separate data 
area in Section 5 of this PLM, For the data 
area layout, see: : 


C DMB PREFIX 


ACB EXTENSION 


DMB — DMB Prefix 
DSECT Name: 


DSECT Name: DMBACBXT 
ACBXT — ACB Extension 
DTF EXTENSION 


DSECT Name: DMBDTFXT 


DIRECT ALGORITHM COMMUNICATION TABLE HDAM Randomizing Routine 


DACS — 
DSECT Name: DMBDACS Interiace Table 
COMPRESSION SECTION HDAM/HIDAM Variable Length 
CPAC — Segment Compression/Expansion 


DSECT Name: DMBCPAC Routine 


HDAM/HIDAM User Secondary 
XMPRM — Index Suppression Routine 
Interface Table 


( ; INDEX MAINTENANCE PARAMETERS 
/ DSECT Name: DMBXMPRM 


PHYSICAL SEGMENT DESCRIPTION BLOCK see _ Physical Segment Description 


DSECT Name: DMBPSDB eee 
SECONDARY LIST 
SEC — Secondary List 
DSECT Name: DMBSEC 
ae FIELD DESCRIPTION BLOCK 
( | FDB — Field Description Block 


DSECT Name: FDB 


Tape or DASD I/O Module 





Figure 5-4. General Structure of DMB 


C. Program Specification Block - PSB 


A PSB must be created for every user program which will run under DL/I control. 
The PSB is created in ‘“‘skeleton” format (principally PCBs only) by PSBGEN. 
The PSB must be cataloged and link edited into the Core Image Library. The PSB 
is loaded into main storage by the DL/I Application Control Blocks Creation and 
Maintenance Utility program and expanded and completed by this utility. The 
expansion is performed by segment definition in the DBD representing the 
associated data base. The expanded PSB is link edited into the Core Image 
Library. The PSB is moved to its execution-time location in the PSB pool by the 
application control blocks load and relocate routine (DLZDBLMO). In expanded 
final format, the PSB consists of the following parts in the order specified: 


1. PSB prefix - of which the most important part is the variable-length PSB list: 
the address list of the PCBs in the PSB. A dope vector table follows the PSB 
prefix for PL/I programs. 
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2. A variable number of data base PCBs. For each data base PCB there is a JCB 
(job control block) consisting of the following parts: 


a’ . 
» JCB prefix : 7 
« DSG (data set group) table. This table contains entries describing the data 
bases specifically used for this PCB. There are entries for all logically 
connected data bases, all primary HIDAM indexes, and a secondary index 
if used as the processing sequence. | 
e Level table. This table provides the current position after the last DL/I 
CALL. 
¢ SDB (segment description block). This block contains an entry for each 
segment to which the user has declared himself sensitive in the PCB. The 
SDB entry describes the sensitive segment. 
¢ Work area for index maintenance, variable-length segment support, or — 
miscellaneous function. These are allocated only when required (if any . Y 
user PCB directly or indirectly refers to an index data base). ee 
e PSB work areas; of variable length depending on the requirements of the 
PCBs. 
General Structure 
‘The general structure of the PSB after it is loaded into storage is shown in 
Figure 5-5 on page 5-11. 
WY 
A = ve 
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Each PSB section is shown as a 
separate data area in Section 5 of 
this PLM. For the data area layout, 
see: 


¢ PSB PREFIX 


PSB — PSB Prefix 
DSECT Name: 


PCB DOPE VECTOR TABLE PCB Dope 


Vector Table 


DPPCB — 
DSECT Name: 


Program 
PCB — Communication 
Block 


DATA BASE PCB 


DSECT Name: 


JCB — Control 


DSECT Name: Block 


DSG TABLE 
One Data_ DSG __ Data Set JCB 


Base PCB DSECT Name: Group eae 
—— LEVEL TABLE and 
( F LEV _' Level Table | SDB 


DSECT Name: Enty, 


Segment 
SDB — Description 


DSECT Name: Block 


JCB PREFIX Job 
Additional e 

Data Base @® REPEATED AS SHOWN ABOVE 

PCBs e 


INDEX MAINTENANCE WORK AREA 
Index Maintenance Work Area 


DSECT Name: XWORKARA 





PCB WORK AREA 





Figure 5-5. General Structure of PSB. 


( DL/I Buffer Pool Control Blocks 


The DL/I buffer pool control blocks provide the control information to manage the 
entire buffer pool for the DL/I task. The buffer pool control blocks are as follows: 


¢ Buffer Pool Control Block Prefix - This control block contains the statistics 
and other control information for the entire buffer pool. 


e Subpool Information Table - This control block contains information for a 
specific subpool, including the size of the buffers in the subpool. There is one 
subpool information table for each subpool allocated. 


¢ DMB Subpool Directory - This control block contains a one-byte subpool 
number relative to zero for each HDAM or HIDAM data base allocated. The 
DMB sequence number is used as an offset into the DMB directory and allows 
a DMB to be identified with a specific subpool. 
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¢ Buffer Prefix Control Block - This control block contains key information 
about the contents of a specific buffer in a subpool. There is one buffer prefix 
control block for each buffer. Each subpool contains 2-32 buffers. fo 


General Structure 


The general structure of the DL/I buffer pool control blocks is shown in 
Figure 5-6. | 
Each buffer pool control block is shown as a 


separate data area in Section 5 of this PLM. 
For the data area layout, see: 


BUFFER POOL CONTROL BLOCK PREFIX 





BFPL — Buffer Pool 
DSECT Name: BFPL uffer Pool Control Block Prefix 
SUBPOOL INFORMATION TABLE 
DSECT Name: SUBINFTA 
SBIF — Subpool Information Table a 
DMB SUBPOOL DIRECTORY 
BUFFER PREFIX | “or 
DSECT Name: BFFRDS | wd 
BFFR — Buffer Prefix 
1/O BUFFERS 
(2~32 per subpool) 


Figure 5-6. General Structure of DL/I Buffer Pool Control Blocks 
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ACBXT - ACB Extension 
C DSECT Name: DMBACBXT 


The ACB extension is described as part of the general structure and description of the data management block 
(DMB), which is part of the DLZIDLI macro. The information in ACBXT is repeated for each data set in the DMB. 
The ACB extension is immediately behind the DMB Prefix. For HISAM data bases, there is a second ACB 
extension immediately behind the first. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DMBACBXT 
0 (0) 4 DMBACBST Start of ACB extension 
0 (0) 4 DMBACBAD Address of corresponding 
ACB 
( 4 (4) 2 DMBCINV Control interval size 
a 6 (6) 1 DMBACBDL Delta cylinders to scan 
7 ‘Eni 1 DMBACBAP Number of root anchor 
points per control interval 
(HDAM) 
8 (8) 2 DMBACBMX Length of the largest 
segment in data set 
10 (A) 2 DMBACBMN Length of the smallest 
( segment in data set 
eee 12 (C) 4 DMBECB ACB/ECB for buffer handler 
16 (10) 4 DMBHIBLK Highest possible RBN (CI) 
20 (14) 4 DMBRBASN RBA of last logical record 
assigned (HISAM) or 
relative block number of 
last control interval 
assigned (HD). During batch 
initialization the 
is high-order byte is the 
( | buffer size (control 
ee interval size/512) indicator 
24. (18) 4 DMBRLBLK Relative block number of 
last control interval 
written (HD) 
28 (1C) 2 DMBCICYL Number of control interval 
per cylinder 
30 (1E) 1 DMBCITRK Number of control interval 
per track 
31 (1F) ’ DMBKEYLE Key length of KSDS 
32 (20) 2 DMBRKP Relative key position 
34 (22) 1 DMBOFLGS Open flags 
DMBIGNOR "X'4O'" IGN specified for 





workfile on load 
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Offsets Field/Flag Flag Code 





(Dec) (Hex) Length Name (Bit) Description 
ko 
DMBNUSE aa "X'20'" ACB does not have ‘% E 
resolved secondary index Ss 
entries; workfile must be 
used 
DMBOPEN il "X'10'" The corresponding 
ACB is open 
DMBPUTKY le "X'O8'" Simulate not load 
mode to VSAM 
DMBUNLD oa be "X'O4'" Unload issued for 
this DMB 
35° £23) DMBVSFLG Flags 
DMBCISPL ‘ "X'80'" CONTROL INTERVAL 
split occurred 
DMBPSEQ i "xX'10'" SEQUENTIAL oo” 
processing possible for tt 
this KSDS - 
36 (24) DMBHIRBA Highest RBA in present 
range of extents (HIDAM 
ESDS only) 
40 (28) DMBVSBFR Number of buffers to be 
used 
42 . (2A) DMBLRECL Logical record length 
| a 
44 (2C) DMBBFACT Blocking factor tS y 
| Wea? 
46 O2E) DMBINDO Permanent indicators 
DMBWCHK ie "X'O8'" Write check option 
DMBKEY "X'80'" Data set contains 
keys (HISAM/SHISAM) 
DMBBESDS "X'4O'" Blocked ESDS 
DMBFBA a Ve "X'20'" FBA device a 
DMBINIT e | "x¥'10'" Space management Naa? 
has been entered for this 
DMB 
47 (2F) Reserved 
48 (30) DMBSPLCT Control interval split 
count. 
52 (34) DMBACBRP Address of this ACB's RPL 
56 (38) DMBACBLC Log count (HISAM ONLY) 
58 (3A) DMBFRSPC Distributed free space 
parameter 
59 (3B) DMBFRSP1 "*—1'" SECOND FREE SPACE 
parameter 
60  (3C) DMBACBNM Data set name as in ACB 
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Offsets 
(Dec) (Hex) Length 
68 (44) 4 
TZ (48) 2 
74 (4A) 2 
76 (4C) 4 
80 (50) 
LABEL EQUATES 
HSAM DTF EXTENSION 
0 (0) 0 
0 (0) 4 
4 (4) 4 


Field/Flag 
Name 


DMBACLNO 


DMBACBEX 


DMBFBASN 


DMBEXQUE 


DMBVSEOF 


DMBACBND 


DMBACBLN 


DMBDCBDL 
DMBDCBAP 
DMBDCBMX 
DMBDCBMN 
DMBDCBLN 
DCBHIBLK 
DCBRBASN 
DCBRLBLK 
DCBKEYLE 
DCBLRECL 
DCBBFACT 
DCBRKP 
DCBINDO 
DCBKEY 
ACBHIBLK 
ACBRBASN 
ACBRLBLK 
ACBKEYLE 
ACBLRECL 
ACBBFACT 
ACBINDO 


DMBDTFXT 
DMBDTFIN 


DMBDTFOT 


Flag Code: 


(Bit) 


e e e ? e 
— ._ — — e 
e e ° e 


° e e ) 
| SS 9 9 


Description 


"*-4-DMBACBST" Length OF 
version 1.0 ACB extension 


Address of the exit list 
for this ACB 


FBA scan value 


Queue header for tasks 
that are extending the 
data base 


Relative block number of 
where software end-of-file 
will be when all control 
intervals on the write 
chain have been written 


END OF ACB EXTENSION 


"DMBACBND-DMBACBST" Length 
of ACB extension 


"DMBACBDL" 
"DMBACBAP" 
"DMBACBMX" 
"DMBACBMN" 
"DMBACBND-DMBACBST" 
"DMBHIBLK" — 
"DMBRBASN" 
"DMBRLBLK" 
"DMBKEYLE" 
"DMBLRECL" 
"DMBBFACT" 
"DMBRKP" 
"DMBINDO" 
hy so ete 
"DMBHIBLK" 
"DMBRBASN" 
"DMBRLBLK" 
"DMBKEYLE" 
"DMBLRECL" 
"DMBBFACT" 
"DMBINDO" 


Address of HSAM input DTF 


Address of HSAM output DTF 
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Cross Reference 


Name 


ACBBFACT 
ACBHIBLK 
ACBINDO 
ACBKEYLE 
ACBLRECL 
ACBRBASN 
ACBRLBLK 
DCBBFACT 
DCBHIBLK 
DCBINDO 
DCBKEY 
DCBKEYLE 
DCBLRECL 
DCBRBASN 
DCBRKP 
DCBRLBLK 
DMBACBAD 
DMBACBAP 
DMBACBDL 
DMBACBEX 
DMBACBLC 
DMBACBLN 
DMBACBMN 
DMBACBMX 
DMBACBND 
DMBACBNM 
DMBACBRP 
DMBACBST 
DMBACBXT 
DMBACLNO 
DMBBESDS 
DMBBFACT 
DMBCICYL 
DMBCINV 
DMBCISPL 
DMBCITRK 
DMBDCBAP 
DMBDCBDL 
DMBDCBLN 
DMBDCBMN 
DMBDCBMX 
DMBDTFIN 
DMBDTFOT 
DMBDTFXT 
DMBECB | 
DMBEXQUE 
DMBFBA 
DMBFBASN 
DMBFRSPC 
DMBFRSP 1 
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Offset Value 


Hex 


50 


40 
40 


80 
O07 


50 
OA 


08 


20 


3B 


Name 


DMBHIBLK 
DMBHIRBA 
DMBIGNOR 
DMBINDO 
DMBINIT 
DMBKEY 
DMBKEYLE 
DMBLRECL 
DMBNUSE 
DMBOFLGS 
DMBOPEN 
DMBPSEQ 
DMBPUTKY 
DMBRBASN 
DMBRKP 
DMBRLBLK 
DMBSPLCT 
DMBUNLD 
DMBVSBFR 
DMBVSEOF 
DMBVSFLG 
DMBWCHK 


Hex 


Hex 


Offset Value 


40 


10 
80 


20 
10 


08 


04 


08 


Licensed Material—Property of IBM 





, aN 
i aac i 
‘7 





Licensed Material—Property of IBM 


ACT - Partial Reorganization Action Table 
( DSECT Name: DLZPRACT 
This DSECT describes one action to be taken by either RELOAD or SCAN. It also defines the action to be taken 


by UPDATE when the record created by RELOAD or SCAN is read back. It is built by the action table builder and 
is used by RELOAD, SCAN, and UPDATE phases in step 2. Its address is held in the common area field 





(COMAACT). 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 ACT 
0 (0) 4 ACTSTART 
0 (0) 1 ACTCRTYP Action record type 
1 (1) 1 ACTCROW Action row number 
( : 2 (2) 1 Reserved 
3 (3) 1 ACTGOPTN Optional action identifier 
ACTQOPT2 "X'80'" Option with two 
ACT entries 
4 (4) 1 ACTGDEST Destination indicator flags 
ACTQSRT 1 "X'80'" Record goes to 
sort 1 
_ ACTOQSRT2 "x'4O'" Record goes to 
= sort 2 
ACTOSRT3 "X'20'" Record goes to 
sort 3 
ACTOSRT4 "X'10'" Record goes to 
sort 4 
5 (5) 1 ACTCSDS DS of moved segment for 
sort 1 
ae 6 (6) 2 ACTOSGT Offset in SGT from which 
ue this is chained 
8 (8) 2 ACTOSUPD Offset in SGT for segment to 
be updated 
10 (A) 2 ACTOSZID Offset in SGT for Z segment 
in physical pair 
12 (C) 2 ACTOPRMV Offset in prefix of pointer 
to be extracted 
14 (E) 2 ACTOPUPD Offset in prefix of pointer 
to be updated 
16 (10) 2 ACTOCHED Offset in prefix of chain 
head pointer 
18 (12) 2 ACTOCNXT Offset in prefix of next 
in chain pointer 
20 (14) 2 ACTOTEST Offset to be tested for 





Zero or non-zero 
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Offsets Field/Flag Flag Code | 
(Dec) (Hex) Length Name (Bit) Description 


22 (16) 2 ACTOANXT Offset in ACT of next _— 
action Same 





24 (18) 4 (2) Reserved 
: action table entry 


Cross Reference 


Hex Hex 
Name Offset Value 
ACT 0 
ACTCROW 1 
ACTCRTYP 0 
ACTCSDS 5 
ACTGDEST 4 
ACTGOPTN 3 
ACTLLEN 18 20 
ACTOANXT 16 Pa 
ACTOCHED 10 — 
ACTOCNXT 12 7 
ACTOPRMV 
ACTOPUPD 
ACTOSGT 
ACTOSUPD 
ACTOSZID 
ACTOTEST 1 
ACTQOPT2 
ACTQSRT1 
ACTOQSRT2 
ACTQSRT3 
ACTOQSRT4 
ACTSTART 


OFFER RWERDPOAODOHWO 
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ARGO - HLPI ARGO Parameters 
( ; DSECT Name: DLZARGO 


This DSECT describes the fields contained in the DL/I HLPI ARGO Interface Parameter list. 








ARGO 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bat): Description 
0 (0) O DLZARGO 
O (0) 4 ARGO 
0 (0) 1 ARGOFNID ARGO ID x'OO' 
1 (1) 1 ARGOFNCD Function code 
INITCALL Pe wk O29" Initialize eal 
SCHDCALL olive "X'O4'" Schedule call 
TERMCALL Pe ale "X'O6'" Termination call 
CHKPCALL lie "X'O8'" Checkpoint call 
GUCALL eee ee "X'OA''" Get unique call 
GNCALL is "X'OC'" Get next call 
a GNPCALL "X'10'" Get next in parent 
( : call 
7 ISRTCALL <li "X¥'12'" Insert call 
REPLCALL Slice "X'14'" Replace call 
DLETCALL 17 "X'16'" Delete call 
LOADCALL ee "X'18'" Load call 
2 (2) 1 ARGOFLG1 Argument Flag 1 
(_ 3 (3) 1 ARGOFLG2 Argument Flag 2 
- 4 (4) 1 ARGOFLG3 Argument Flag 3 
APPLPLI om ie "x02 Application 
program is PL/I 
5 (5) 1 ARGOMODI Index for start of symbol 
HLPIQOS in DLZHLPIL DSECT 
6 (6) 1 ARGORELN Relative number of this 
call 
7 (7) 1 ARGOTOTN Total number of calls in 
this statement 
8 (8) 8 ARGORMGR Resource manager's ID 
16 (10) 8 -ARGOSTMT Statement identifier 
24 (18) 1 ARGOOPTS Statement level options 
USINGPCB Aaiine "xX ' 40" 2" Using PCB 
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Offsets Field/Flag Flag Code 





(Dec) (Hex) Length Name (Bit) Description Pa 
25 (19) 1 ARGOCCOD Command codes | | aed 
CCPRIRST "X¥'8O'" First 
CCLAST "X'4GO'" Last 
CCLOCKED we 20 LOCKE 
CCINFROM "X'10'" Into (Get) or from 
(Insert, Load, Replace) 
26 (1A) 7 ARGOOPT 1 Call options 
ARGOKFBA "X'O02'" Key feedback 
| specified 
ARGOKFBL "X'O1'" Feedback length 
specified : 
eos 
27 (1B) 1 ARGOSOPT Segment options ; 
OPTSEGL "X'80'" Seglength present 
OPTWHERE "X'4O'" Where 
"X'20'" Boolean where (IMS 
only) 
OPTFLDL "X'10'" Field length present 
OPTVAR "X'O8'" Variable 94000 
- 
OPTSEGM "X'O4'" Segment name ‘we / 
present ~ 
OPTOFF "X'O2'" Offset specified 
28 (1C) 1 Reserved 
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Cross Reference 


( | Name Offset Value 
APPLPLI 4 O02 
ARGO 0 
ARGOCCOD 19 
ARGOFLG1 2 
ARGOFLG2 3 
ARGOFLG3 4 
ARGOFNCD 1 
ARGOFNID 0 
ARGOKFBA 1A 02 
ARGOKFBL 1A 01 
ARGOMODT 5 
ARGOOPTS 18 
ARGOOPT 1 1A 
ARGORELN 6 
ARGORMGR 8 
ARGOSOPT 1B 
m ARGOSTMT 10 
er ARGOTOTN i 
( CCFIRST 19 80 
al CCINFROM 19 10 
CCLAST 19 40 
CCLOCKED 19 20 
CHKPCALL 1 08 
DLETCALL 1 16 
DLZARGO O 
GNCALL 1 OC 
GNPCALL 1 10 
GUCALL 1 OA 
INITCALL 1 O02 
mo ISRTCALL 1 12 
( LOADCALL 1 18 
— OPTFLDL 1B 10 
OPTOFF 1B O02 
OPTSEGL 1B 80 
OPTSEGM 1B O04 
OPTVAR 1B 08 
OPTWHERE 1B 40 
REPLCALL 1 14 
SCHDCALL 1 O04 
TERMCALL 1 O06 
USINGPCB 18 40 





Section 5. Data Areas 5-21 


Licensed Material—Property of IBM 


BFFR - Buffer Prefix 
DSECT Name: DLZBFFR 


The buffer prefix is described as part of the general structure and description of the DL/I buffer pool control blocks. 
There is one buffer prefix for each buffer allocated. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 0 BFFRDS 
O (0) 7 BFFRCIID Control interval 
Identifier 
O (0) 4 BFFRCIRB Control interval RBN 
4 (4) 2 BFFRDMB DMB number 
6 (6) 1 BFFRDCB ACB number 
7 (7) 1 BFFRSW Flags 
BF FRWCH "X'80'" Buffer on write 
chain 
BFFRWRT ny ee "X'4O'" Buffer being 
written 
BFFRREAD Se "x'20'" Buffer being read 
BFFRMT ip "x'10'" Buffer empty 
BFFRPRED lve "X'O8'" Buffer waiting for. 
predecessor being written 
BFFRWERR Pea Ie "X'O4'" Buffer has 
permanent write error 
BFFREXNQ ees "x O02. BXTSting ‘Gontro. 
interval ID enqueued 
BFFRPNNQ oil "X'O1'" Pending control 
interval ID enqueued 
8 (8) om BFFRPST PST prefix numbers for 
enqueue/dequeue 
8 (8) 1 BFFRPSTF PST prefix number of the 
| controlling task 
9 (9) 1 BFFRPSTL PST prefix number of the 
task being last in the 
chain of waiting tasks 
10 (A) 2 BFFRLOCU Log count 
12 (C) 1 BFFRUSCT Use count 
12 (C) 4 BFFRADDR Address of the buffer 
16 (10) 2 BFFRUSID ID of the users who 
: altered this buffer 
18 (12) 1 BFFRWCFW Next lower buffer on the 
write chain 
19 = (13) 1 BFFRWCBW Next higher buffer on the write chain 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
20 (14) 7 BFFRNCID New control interval 
identifier 
20 (14) 4 BFFRNCII New control interval RBA 
24 (18) 2 BFFRNDMB New DMB number 
26 (1A) 1 BFFRNACB New ACB number 
27 (1B) 1 BFFRSW1 Flags 
BFFRNORU "xX'80'" Buffer is not 
reusable 
BFFRLOCK "X'4O'" Buffer locked by 
logger 
BFFRREL "X'O8'" Buffer is released 
BFFRLAST "X'O1'" Last buffer prefix 
for this subpool 
28 (1C) 2 BFFRNPST PST prefix numbers for 
ENQ/DEQ 
28 EVC) 1 BFFRNPSF PST prefix number of task 
which enqueued on new 
control interval ID and 
is first in the chain 
29 (1D) 1 BFFRNPSL PST prefix number of task 
which enqueued on new 
control. interval ID and 
is last in chain 
30 (1E) 2 BFFRHOLE Length of largest space 
available in the buffer 
buffer prefix 
BFFRLEN Length of buffer prefix 
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Cross Reference 


Name 


BFFRADDR 
BFFRCIID 
BFFRCIRB 
BFFRDCB 
BFFRDMB 
BFFRDS 
BFFREXNQ 
BFFRHOLE 
BFFRLAST 
BFFRLEN 
BFFRLOCK 
BFFRLOCU 
BFFRMT 
BFFRNACB 
BFFRNCID 
BFFRNCII 
BFFRNDMB 
BFFRNORU 
BFFRNPSF 
BFFRNPSL 
BFFRNPST 
BFFRPNNOQ 
BFFRPRED 
_BFFRPST 
BFFRPSTF 
BFFRPSTL 
BFFRREAD 
BFFRREL 
BFFRSW 
BFFRSW1 
BFFRUSCT 
BFFRUSID 
BFFRWCBW 
BFFRWCFW 
BFFRWCH 
BFFRWERR 
BFFRWRT 
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Hex 


Offset 


Hex 


Value 


02 
01 
40 


10 


80 


01 
08 


20 


08 


80 


40 
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a 


pe 
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nance 
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BFPL - Buffer Pool Control Block Prefix 


DSECT Name: DLZBFPL 





The BFPL is described as part of the general structure and description of DL/I buffer pool control blocks. There is 
one buffer pool control block prefix that contains information for the entire buffer pool. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 BFPL 
0 (0) 4 BFPLID 
0 (0) 4 Buffer pool control block 
ID (BFPL) 
4 (4) 4 (3) Reserved 
16 (10) 4 BFPLROCT Number of requests 
received by the buffer 
handler 
20 (14) 4 BFPLINPL Number of requests 
Satisfied from buffer pool 
24 (18) 4 BFPLRDCT Number of read requests 
Issued 
28 (1) 4 BFPLALTR Number of buffer alter 
requests received 
SZ (20) 4 BFPLOSWT Number of writes issued 
36 (24) 4 BFPLBKWT Number of blocks written 
40 (28) 4 BFPLNWBK Number of new blocks 
| created in pool 
Ad (2C) 4 BFPLCHWT Number of chained writes 
issued 
48 (30) 4 BFPLCHBK Number of blocks written 
on write chain 
52 (34) 4 BFPLISTL Number of retrieves by key calls 
56 = (38) 4 BFPLIGET Number of GN calls 
received 
60 (3C) 1 BF PLWERR Number of permanent write 
61 (3D) 1 BFPLWERT Largest number of write 
error buffers ever in pool 
62 (3E) 1 Reserved for future use 
63 (3F) 1 Reserved for future use 
64 (40) 4 BFPLNOQW1 Enqueue/Dequeue workarea 
1. Byte O indicates the 
following: 
BFPLEXCI "X'OO'" Enqueue/dequeue 





existing control interval code 
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Offsets _ Field/Flag Flag Code 
(Dec) (Hex) Length Name | (Bit) 
BFPLPECI poecaves, Aeeliaae 
BFPLSUPO ee eras eae: 
BFPLCIXT glam. ellis 
68 (44) (15) 
128 (80) BFPLPRAD 
132 (84) BFPLSUBD 
136 (88) BFPLSUIN 
BFPLLEN Tees dees 
Cross Reference 
Hex Hex 
Name Offset Value 
BFPL 0 
BFPLALTR re 
BFPLBKWT 24 
BFPLCHBK 30 
BFPLCHWT 2C 
BFPLCIXT 40 OC 
BFPLEXCI 40 OO 
BFPLID O 
BFPLIGET 38 
BFPLINPL 14 
BFPLISTL 34 
BFPLLEN 88 88 
BFPLNOQW1 40 
BFPLNWBK 28 
BFPLOSWT 20 
BFPLPECI 40 O04 
BFPLPRAD 80 
BFPLRDCT 18 
BFPLROCT 10 
BFPLSUBD 84 
BFPLSUIN 88 
BFPLSUPO 40 08 
BFPLWERR SC 
BFPLWERT 3D 
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Description 


"X'O4'" Enqueue/dequeue 
pending control interval 
code 


"X'O8'" Enqueue/dequeue 
subpool code 


"x'OC'" Enqueue/dequeue 

on control interval 
extension queue bytes 1-3 
contains a pointer to the 
PST prefix numbers of first 
and last task waiting for 
the resource 


Reserved for future use 


Beginning address of the 
buffer prefix area 


Beginning address of the 
DMB-subpool-directory 


Beginning of the subpool 
information table entries 


"*-BFPL" length of the 
buffer pool control block 
prefix 


(— ™ 
\ 
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COM - Common Area 


DSECT Name: DLZPRCOM 


This CSECT/DSECT describes the common area used by partial reorganization. The common area is assembled as 
a CSECT in the Parti and Part2 control modules. In all other modules it is used as a DSECT. The common area is 
made up of the following sections: 


1. General address section 
2. Switch and data section 
3. DL/I address section 
4. File section 
5. Checkpoint section 
Offsets 
(Dec) (Hex) Length 
0 (0) 0 
0 (0) 4 
0 (0) a es 


Field/Flag 


Name 
COMAREA 
COMSTART 


COMCID 


GENERAL ADDRESS SECTION 


12 (C) 4 
16 (10) 4 
20. (14) 4 
24 (18) 4 
28 (1C) 4 
32 (20) 4 
36 = (24) 4 
4O (28) 4 
44  (2C) 4 
48 (390) 4 
52 (34) 4 
56 = (38) 4 
60 (3C) 4 
64 (40) 4 
68 (44) 4 
72 ~~ (48) 4 
76 ~~ (AC) 4 
80 (50) 4 


COMFCOML 


COMACOM 


COMASIOA 


COMAERRS 


COMAF ILE 


COMADLII 


COMACHK-P 


COMASTWR 


COMADBD 


COMFDBTL 


COMADBT 


COMF'DBTM 


COMFSGTL 


COMASGT 


COMFSGTM 


COMFACTL 


COMAACT 


COMFACTM 





Description 


Identifier 


Length of common 
Address of common 


Address of an I/O area for 
GU, GN calls 


Entry point of error 
message writer 


Entry point of file 
manager 


Entry point of DL/I 
interface module 


Entry point of checkpoint 
processor 


Entry point of statistics 
writer 


Address of data base block 
Length of data base table (DBT) 
Address of DBT 

Maximum size of DBT 

Length of segment table 
Address of SGT 

Maximum size of SGT 

Length of action table (ACT) 
Address of ACT 


Maximum size of ACT 
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(Dec) (Hex) Length 


Offsets 

84 (54) 
88 (58) 
90 (5A) 
92  (5C) 
94 (5B) 
96 (60) 
98 (62) 
100 (64) 
102 +~=(66) 
104 (68) 
106 (6A) 
108 (6C) 
110 (6B) 
112. (70) 

SWITCH 

1a ~ (72) 
116 (74) 
120 +~=«(78) 
128 (80) 


4 


2 


Field/Flag 


Name 
COMARGT 


COMLRGT 


COMHLDBT 


COMHNDBT 


COMHLSGT 
COMHNSGT 


COMHMXPR 


COMHNSGX 
COMHLACT 
COMHNACT 
COMHLRGT 


COMHNRGT 


COMHMXSG © 


COMHKYLN 


AND DATA SECTION 


2 


4 


COMXBR14 


COMFRETC 


COMCPSBN 


COMCIREQ 


COMQGPRE 


COMQIPRE 


COMQBKLC 


COMQBYLC 


COMQBYAL 
COMQGRBA 


COMQFREE 


COMORKEY _ 
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Description 


Address of RGT 


Length of range table 


(RGT) | 


Length of a DBT entry 


-Number of DBT entries 


Length of a SGT entry 


Number of SGT entries 


Length of longest prefix 
in data base number 1 


Number of SGX entries 


Length of an ACT entry 


Number of ACT entries 


Length of an RGT entry 


Number of RGT entries 


Length of data part of 


longest 


segment 


Length of current HIDAM 


key 


A BR 14 instruction 


Level of most severe error 


to date 


Name to be given to 
generated PSB 


D1/I common services 


request 


"X'O1'" Get prefix address 


of last 


"X'Q2'" Get prefix address 


of last 


code 
segment retrieved 


segment inserted 


"xX'O03'" Locate block 


"X'O4'" Byte locate 


"xX'O5'" Locate byte for 


updating 


"x'O6'" Get RBA of last 


seg retr 


ieved/inserted 


~~ "X'O7'" Pree space 


occupied by a segment 


"x'O8'" Find key of HDAM 


root at 


block N 


aA 
(Po 
Ny 
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Offsets Field/Flag Flag Code 
rh, (Dec) (Hex) Length Name (Bit) Description 
COMQLOLD ere "X'O09'" Log data before 
change 
COMOLNEW Va) "X'OA'" Log data after 
change 
COMQBMON saa | "X'OB'" Turn bit maps on 
COMQBMOF : Vole "X'OC'" Turn bit maps off 
COMOBFAL ac "X'OD'" Mark buffer 
altered 
COMQULHB ' 111 "X'OE'" Set LO and HI 
block 
COMOXRMA i "X'OF'" Swap randomizer 
. entry points 
( COMOQINT2 nad ee eee "X'10'" Initialize for 
oe Part 2 
COMQINTU a sl "X'11'" Initialize for 
UNLOAD 
COMORSTU EP ese ee "X¥'12'" Reset after UNLOAD 
COMQINTR sve Aree "X'13'" Initialize for 
RELOAD 
~COMORSTR eal - ate hees "X'14'" Reset after RELOAD 
COMQCRAP a Pod "X'15'" Clear HDAM root 
anchor point 
COMQGNDX re a "x'16'" Retrieve an index 
record 
129 (81) 1 COMGOUT Output control switches 
COMQSALL ae "X'80'" Full statistics 
required 
+ COMQSUMM .1.. ....  "X'40'" Summary of 
ie statistics required 
COMQSNON ge Stice "X'20'" No statistics to 
be produced 
COMONPSB ere | "X¥'O1'" No PSB to be 
generated 
130 (82) 1 COMGUCTL Update process control 
switches 
COMQDUNQ "X'80'" OQ record update is 
complete 
COMQSPUS ra ree "X'4O'" Spill is in use 
COMQSPOF a ; "X'20'" Spill overflow has 
unprocessed records 
COMOQNDBR geil "X'10'" No database record 


in HDAM range 
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Offsets Field/Flag Flag Code | | 
(Dec) (Hex) Length Name | (Bit) Description 
| fo 
131 (83) 1 COMGPART Part in progress indicator “q 
COMQSTP 1 "x'8O'" Part 1 is in : 
progress 
COMQSTP2 "X'4O'" Part 2 is in 
progress | 
COMOQRIP "x02" Restart in 
progress 
132 (84) 4 COMCSTEC Sort technique to be used 
136 (88) 9 COMCSSIZ Main storage to be used by 
sort 
145 (91) 9 COMCSMSG Sort output message level 
154 (9A) 4 COMCSDIA Sort diagnostic option we 
/ : ae 
158 (9E) 3 COMAMSGN Error message number to be ee al 
i printed ea 
164 (A4) 4 COMAVTXT Address of variable text 
| for message 
168 (A8) 4 COMFWRK 1 First work word 
172 (AC) 4 COMFWRK2 Second work word 
176 (BO) 4 COMFWRK3 Third work word 
es 
180 (B4) 4 COMFWRK4 Fourth work word ‘ | 
‘& 4” 
i Ti 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
C DLI ADDRESS SECTION 
184 (B8) 4 COMASCD Address of system contents 
directory (SCD) 
188 (BC) 4 COMAPST Address of partition 
Specification block 
192 (CO) 4 COMADDIR Address of data base 
directory 
196 (C4) 4 COMALOG Address of data base 
change logger 
200 (C8) 4 COMABUFH Address of buffer handler 
router 
204 (CC) 4 COMASMGR Address of space manager 
en 208 (DO) 4 COMAPREF Address of prefix of last 
bec segment retrieved 
212 (D4) 4 COMRLSEG RBA of last segment 
retrieved 
216 (D8) 4 COMRLOPT Value of root PTB pointer 
at start of range 
220 (DC) 4 COMRHIPT Value of root PTF pointer 
at end of range 
( *s 224 (EQ) 4 COMADLI Address of ASBTDLI | 
228 (E4) 4 Reserved 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (BIC): : Description | ox 
FILE SECTION | a | | rar, 

232. (E8) 4 COMSFLO1 (9) FCB for PRWRKF1 

268 (10C) 4 COMSFLO2 (9) 7 FCB for PRWRKF2 

304 (130) 4 COMSFLO3 (9) i FCB for PRWRKF3 

340 (154) 4 COMSFLO4(9) — FCB for PRWRKF4 

376 (178) 4 COMSFLOS5 (9) FCB for PRWRKF5 

412 (19C) 4 COMSFLO6 (9) FCB for PRWRKF6 

448  (1C0) 4 _ COMSFLO7 (9) FCB for PRWRKF7 

484 (1E4) 4 COMSFLO8 (9) FCB for PRWRKF8 

520 (208) 4 COMSFLO9 (9) FCB for PRWRKF9 a 

556 (22C) 4 COMSFL10 (9) FCB for PRWRKFA “2 

592 (250) 4 COMSFL11 (9) FCB for SYSPRINT 

628 (274) 4 COMSFL12 (9) FCB for SYSPUNCH 

664 (298) 4 COMSFL13 (9) FCB for SYSIN 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 


CHECKPOINT SECTION 


Contains switches and data to be checkpointed and recovered 
during restart. Also includes the parameter list of user areas 
to be checkpointed for DL/I. 


700 (2BC) 4 COMFCKID 

704 (2C0) 1 COMCPROC 
COMQPHUR .... ...1 
COMQPHSC .... ..1. 
COMOPHSO .... ..11 
COMOPHUD  .... .1.. 

705 (2C1) 1 COMGPHAS 
COMOSCAN 1... .... 
COMQSRT1 Slater, does 
COMQSRT2 ..1. 
COMOSRTS 44.41 eee 
COMOSRT4 .... 1... 
COMQUPDT .... .1.. 
COMOOPTN .... ..1. 
COMQUPIX .... ...1 

706 (2C2) 2 COMOCRGT 

708 (2C4) 2 COMODBSN 

710 (2C6) 1 COMGPHS2 
COMOINBF 1... .... 

711. (2C7) 1 

712 (2C8) 4 (2) 


COMQCKND 


Description 


ID of last DL/I checkpoint 
taken 


PART2 phase in process 
indicator 


"X'O1'" UNLOAD/RELOAD in 
progress 


"X'O2'" SCAN in progress 
"X'O3'" SORT in progress 
"X'O4'" UPDATE in progress 
Phase GO NOGO switches 
"X'80'" SCAN required 
"X'4O'" SORT 1 required 
"X'20'" SORT 2 required 
"X'10'" SORT 3 required 
"X'O8'" SORT 4 required 
"X'O4'" UPDATE required 


"X'O2'" Option selection 
required 


"X'O1'" Only index update 
required 


RGT offset for range being 
processed 


DBT offset for DB being 
scanned 


Restart flags 


"X'80'" Record in buffer 
for update 


Reserved 
Reserved 


"*" End of area to be 
checkpointed 


From COMFCKID to here is checkpoint data to be restored by DL/I 


extended restart 


The fields which follow are the list of areas to checkpoint and 


recover. This list is passed to DL/I. 
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720 


724 


728 


732 


736 


740 


744 


748 


TZ 


756 


760 


764 


768 


772 


772 


END OF CHECKPOINT RESTART PARM LIST 


(2D0) 


(2D4) 


(2D8) 


(2DC) 


(2E0) 


(2E4) 


(2E8) 


(2EC) 


(2F0) 


(2F4) 


(2F8) 
(2FC) 
(300) 
(304) 


(304) 


£ 


+ £ 


£& 


4 


COMAPMCT 


COMACHXR 


COMATPCB 


COMALMXS 


COMAIOWK 


COMAPLST 


COMFCXPL 


COMFLCKD 


COMACHKD 


COMAGBUF 


_ COMFFCBL 


COMAFL25 
COMFPMCT 


COMLCXPL 


(3) 
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D-> Parameter count 


-> EBCDIC function code 
(CHKP or XRST) 


-> I/O PCB 


-> Fullword value of 
COMHMXSG or 2K 


-> 12. byte work area 


-> Lengths and addresses to 
be checkpointed 


Length of checkpoint list 


Length of common checkpoint 
data 


-> Checkpoint area origin 


-> Origin of combined GSAM 
Ifo areas 


Length of PRWRKF2,3,4,5 
-> FCBs for PRWRKF2,3,4,5 
Fullword parameter count 


Equate for end of 
parameter list 


Reserved 
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Offsets Field/Flag 
(Dec) (Hex) Length ~ Name 
( ; DATA SET GROUP TABLE 
784 (310) 4 
784 (310) 8 COMCDDNM 
192 (318) 1 COMXDGID 
COMLDSGT 
19S 4319) 81 (9) 
874 (36A) 2 
876 (36C) 16 COMCTRAC 
( 892 (37C) 4 (4) 
COMLLEN 
PRINT HEADER LINE 
908 (38C) 121 COMHEADR 
908 (38C) 43 
ps 951 (3B7) 36 COMHEADV 
( ; 987 (3DB) 23 COMHEADC 
1010 (3F2) 15 COMHEADD 
1025 (401) 4 COMHEADP 
1029 (405) 2 COMHPAGE 
1031 (407) 4 COMPAGEM 





Description 


DDNAME for a data set 
Group to reorganize 


DL/I data set group ID code 


"*-COMCDDNM" length of a 
DSG table entry 


Space for 9 more DSG 
entries 


Reserved 


Trace of last 16 requests 
to DL/I services 


Reserved 


"*-COMSTART" length of 
common 


Page number packed 
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Cross Reference 


Name 
COMABUFH 
COMACHKD 
COMACHKP 
COMACHXR 
COMACOM 
COMADBD 
COMADBT 
COMADDIR 
COMADLI 
COMADLII 
COMAERRS 
COMAFILE 
COMAFL25 
COMAGBUF 
COMATOWK 
COMATPCB 
COMALMXS 
COMALOG 
COMAMSGN 
COMAPLST 
COMAPMCT 
COMAPREF 
COMAPST 
COMAREA 
COMARGT 
COMASCD 
COMASGT 
COMASIOA 
COMASMGR 
COMASTWR 
COMAVTXT 
COMCDDNM 
COMCID 
COMCTIREQ 
COMCPROC 
COMCPSBN 
COMCSDIA 
COMCSMSG 
COMCSSIZ 
COMCSTEC 
COMCTRAC 
COMFACTL 
COMFACTM 
COMFCKID 
COMFCOML 
COMFCXPL 
COMFDBTL 
COMFDBTM 
COMFFCBL 


Hex 


Offset 


CS 


Hex 


Value 


Name 
COMFPMCT 
COMFRETC 
COMFSGTL 
COMFSGTM 
COMFWRK 1 
COMFWRK2 
COMFWRK3 
COMFWRK4 
COMGOUT 
COMGPART 
COMGPHAS 
COMGPHS 2 
COMGUCTL 
COMHEADC 
COMHEADD 
COMHEADP 
COMHEADR 
COMHEADV 
COMHKYLN 
COMHLACT 
COMHLDBT 
COMHLRGT 
COMHLSGT 
COMHMXPR 
COMHMXSG 
COMHNACT 
COMHNDBT 
COMHNRGT 
COMHNSGT 
COMHNSGX 
COMHPAGE 
COMLCXPL 
COMLDSGT 
COMLLEN 
COMLRGT 
COMOCRGT 
COMODBSN 
COMPAGEM 
COMOBFAL 
COMOBKLC 
COMQOBMOF 
COMOBMON 
COMOBYAL 
COMQBYLC 
COMOCKND 
COMQOCRAP 
COMQDUNOQ 
COMOFREE 
COMOGNDX 
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Hex 
Value COMAACT 


09 - 
038C 


4C 
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COMFLCKD 


i 
2EC YY 


fo 











Name 


COMQGPRE 
COMQGRBA 
COMQINBF 
COMQINTR 
COMQINTU 
COMQINT2 
COMQIPRE 
COMQLNEW 
COMQLOLD 
COMONDBR 
COMONPSB 
COMQOPTN 
COMQPHSC 
COMQPHSO 
COMQPHUD 
COMQPHUR 
COMORIP 

COMQRKEY 
COMORSTR 
COMQRSTU 
COMOSALL 
COMQSCAN 
COMQSNON 
COMQSPOF 
COMQSPUS 
COMQSRT1 
COMOSRT2 
COMQSRT3 
COMQSRT4 
COMOSTP1 
COMQSTP2 
COMQSUMM 
COMOQULHB 
COMQUPDT 
COMQUPIX 
COMQXRMA 
COMRHIPT 
COMRLOPT 
COMRLSEG 
COMSFLO1 
COMSFLO2 
COMSFLO3 
COMSFLO4 


COMSFLO5> 


COMSFLO6 
COMSFLO7 
COMSFLO8 
COMSFLO9 
COMSFL10 
COMSFL11 


Cross Reference 


Hex 


Offset 
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Name 


COMSFL12 
COMSFL13 
COMSTART 
COMXBR14 
COMXDGID 


Hex 


Offset 


274 
298 
0 
72 
318 
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CPAC - HDAM/HIDAM Variable Length Segment Compression/Expansion 


Routine Interface Table 
DSCET Name: DMBCPAC 


This table is described as part of the general structure and description of the data management block (DMB), which 


is part of the DLZIDLI macro. There is one entry for each compressible segment in the DMB. 


0 


=> @©O @® 


Offsets 
(Dec) (Hex) Length 
O (0) 
0 (0) 
8 (8) 
16 (10) 
20 (14) 
21 (15) 
22 (16) 
24 (18) 
26 (1A) 
28 (1C) 
Cross Reference 
Hex 
Name Offset 
DMBCPAC 0 
DMBCPCNM . 0 
DMBCPCSG 8 
DMBCPEP 10 
DMBCPFLG 14 
DMBCPKEY 14 
DMBCPLNG 1A 
DMBCPNIT 14 
DMBCPRES AG 
DMBCPSEQ 14. 
DMBCPSGL 18 
DMBCPSQOF is 
DMBCPSOL 16 
DMBCPVLR 14 
5-38 


Field/Flag 


Name 
DMBCPAC 
DMBCPCNM 
DMBCPCSG 
DMBCPEP 
DMBCPFLG 


DMBCPSEQ 
DMBCPVLR 
DMBCPKEY 
DMBCPNIT 


DMBCPSQF 
DMBCPSQL 
DMBCPSGL 


DMBCPLNG 


DMBCPRES 


02 
07 


08 


04 
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Description 


Segment name 

Compression routine name 

Entry point of compression routine 
Flag byte 


"X'O8'" Segment has 
sequence field defined 


"X'O4'" Segment is. 
variable length 


"X'O2'" Segment has key 
compression option 


"X'O1'" Initialization and 
termination processing required 


Length of key field-1 
Offset to sequence field 
Maximum segment length | 
Total length of CSECT 
fixed length, constants 


plus user data 


Reserved for initialization 





Licensed Material—Property of IBM 


DACS - HDAM Randomizing Routine Interface Table 
¢« | DSECT Name: DMBDACS 


The HDAM randomizing routine interface table is described as part of the general structure and description of the 
data management block (DMB), which is in the DLZIDLI macro. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DMBDACS 
0 (0) 8 DMBDANME Name of address conversion 
— algorithm load module 
8 (8) 1 DMBDAKL i Root key length-1 
8 (8) 4 DMBDAEP Entry point of conversion 
module 
( | 12 (C) 2 DMBDASZE Size of this DSECT 
14 (E) | 2 DMBDARAP Number of root anchor 
pointers per block 
16 (10) 4 DMBDABLK Number of highest block 
in root addressable area 
20 (14) 4 DMBDABYM Maximum number of bytes 
per root before overflow 
outside of root 
( | addressable area 
24 (18) 4 DMBDABYC Current number of bytes 


consecutively inserted or 
loaded under root 


Cross Reference 


Hex Hex 
Name Offset Value 


_ DMBDABLK 10 
ae DMBDABYC 18 
. DMBDABYM 14 
= DMBDACS 0 

DMBDAEP 8 
DMBDAKL 8 
DMBDANME 0 
E 
C 


DMBDARAP 
DMBDASZE 
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DBPCB - Program Communication Block 
DSECT Name: DBPCB 


The data management PCB (program communication block) is described as part of the general structure and 
description of the program specification block (PSB). 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
G+ (Oy. © DBPCB 
0 (0) 8 DBPCBDBD DBD name 
8 (8) 2 Level feedback 


DBPCBLEV 


The following fields are used for communication from PSBGEN 


to ACBGEN only. 
8 (8) 1 DBPCBLE1 Flag byte 
9 (9) 1 DBPCBLE2 Flag byte 
DBPCBGO ells "X'O02'" GO or GOP PROCOPT 
for PCB 
DBPCBAE a "X'O1'" Program isolation 
suppressed for this PCB 
10 (A) 2 DBPCBSTC Status codes 
12 (C) 4 DBPCBPRO| DL/I processing options 
16 (10) 4 DBPCBJCB JCB address 
DBPCBTKW ‘ "X'80'" Another task 
waiting for resource owned 
by this task 
20 (14) 8 DBPCBSFD Segment name feedback 
28 (1C) 4 DBPCBLKY Maximum length of key 
feedback area 
ly. (TC) 4 DBPCBMKL Current length of the key 
| feedback area 
DBPCBMUL .1 "X'O1'" Positioning is 
multiple (for ACBGEN only) 
32 (20) 4 DBPCBNSS Number of sensitive 
: segments in the PCB (after 
ACBGEN only) 
32 (20) 2 DBPCBSSN Number of sensitive 
segments (for ACBGEN only) 
34 (22) 2 DBPCBSOF Offset to the first 
segment (for ACBGEN only) 
36 (24) 256 DBPCBKFD Key feedback area 
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Cross Reference 


( Name Offset Value 
DBPCB 0 
DBPCBAE 9 01 
DBPCBDBD 0 
DBPCBGO oF 02 
DBPCBJCB 10 
DBPCBKFD 24 
DBPCBLEV 8 
DBPCBLE1 8 
DBPCBLE2 9 
DBPCBLKY tC 
DBPCBMKL 1C 
DBPCBMUL 1c 01 
DBPCBNSS 20 
DBPCBPRO Cc 
DBPCBSFD 14 
DBPCBSOF 22 
7 DBPCBSSN 20 
Co, DBPCBSTC A 
( | DBPCBTKW 10 80 
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DBT - Data Base Table 


DSECT Name: DLZPRDBT 
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This DSECT describes the data bases needed for the partial reorganization process. It is built during the DBD 
analysis phase and used by all subsequent pnaseen in PART1 and PART2. Its address is held in the common area 


field (COMADBT). 


Offsets 
(Dec) 

0 (0) 

0 (0) 

0 (0) 

8 (8) 
12 (C) 
16 (10) 
20 (14) 
24 (18) 
28 (1C) 
32 (20) 
36 (24) 
40 (28) 
44 (2C) 
46 (2E) 
48 (30) 
49 (31) 


(Hex) Length 


0 


4 


Field/Flag 


Name 
DBT 
DBTSTART 
DBTCName 


DBTADBD 


DBTAPCB 


DBTAJCB 


DBTASPCB 


DBTASJCB 


DBTADMB 


DBTFRASZ 


DBTHRAPB 


DBTHDMBN 


DBTCID 


DBTGFlag 


DBTQSCAN 


DBTQSOPT 


DBTQVSAM 


DBTQHISM 


DBTQHDAM 


DBTQHIDM 
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Description 


Data base name 


Address of loaded DMB or 
DBD 


Address of primary PCB 


Address of JCB for primary 
PCB 


Reserved 


Address of a second PCB 
for scan 


Address of JCB for 


secondary PCB 
Reserved 
Address of DMB 


No. of blocks in root 
addressable area 


No. of root anchor points 
per block 


DMB number for this data 
base 


Data base internal ID 
DBT flag byte 
ve 60" Scan required, not 


completed 


nytagin Optional scan 
required 


"xX'20'" Access method is 
VSAM 


"X'10'" Entry is for HISAM 
data base 


"X'O8'" Entry is for HDAM 
data base 


"X'O4'" Entry is for HIDAM 
data part 
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Offsets Field/Flag Flag Code 
: (Dec) (Hex) Length Name (Bit) Description 
( , - -DBTOXPRI.... «.1. ~~) "X'02'" Entry is for HIDAM 
ad prime index part 
DBTOXSEC i Sviees <ennue | TR Ol Eaery as: for 
secondary index DB 
50 (32) 8 DBTCKEY Name of key field for root 
segment 
53 (3A) 2 DBTHSIZ1 Block size for first data 
set group 
60 (3G) 18 Block sizes for 9 more 
data set groups 
fis (4E) 510 DBTOSGT Offsets in SGT for 
segments in this DB 
. 588 (24C) Force full word alignment 
(_ DBTLLEN "*-DBTSTART" length of a 


DBT entry 


Cross Reference 


Hex Hex 
Name Offset Value 
DBT @) 
DBTADBD 8 
see DBTADMB 24 
_ DBTAJCB 10 
| DBTAPCB c 
DBTASJCB tC 
DBTASPCB 18 
DBTCID 30 
DBTCKEY — 32 
DBTCName ~~. @ 
DBTFRASZ 28 
DBTGFlag 31 
DBTHDMBN 2E 
DBTHRAPB IC. 
= DBTHSIZ1 3A 
8 DBTLLEN 24Cc 24C 
(_ DBTOSGT AE 
| DBTQHDAM 31 O08 
DBTQHIDM 31 O4 
DBTQHISM 31 10 
DBTQSCAN a 80 
DBTQSOPT 31 40 
DBTQVSAM 34 20 
DBTQXPRI 31 Oo 
DBTQXSEC 31 01 
DBTSTART 0 
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DDIR - DMB Directory 


DSECT Name: DLZDDIR 
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The DMB directory contains an entry for every physical DMB (data management block) that can be accessed under 
DL/I control. The DMB directory is part of the DL/I nucleus and is created during DL/I system definition for 
online processing. The start address of the directory (SCDDLIDM), entry length (SCDDLIDL), and the number of 
entries ecoPE) are contained in the system contents directory Ooh): 


Offsets 

(Dec) (Hex) Length 

0 (0) 0 

e (0) 4 

4 (4) 4 

8 (8) 8 
DDIRADDR HI BYTE Flag 

16 (10) 4 

20. (05) 4 

24 (18) 2 

26 §=(1A) 2 

28 8(1C) 2 

30  (1E) 2 

32 (20) 1 


Field/Flag 


Name 
DDIR 
DDIRBGIN 
DDIRQE 
DDIRQE2 


NOENOQ 


DDIRSYM 


INDEX 
LOGIC 
BILT 

ACTIV 


LDSEQ 


LOAD 


DMBINCIL 


NOTLOAD 


DDIRADDR 


DDIRBLDL 


DDIRSGS 


DDIRCPMP 


- DDIRNUMB 


DDIRCODE 
DDIRSECL 
DDIROPEN 


DDIRWFC 


DDIRIOP 


5-44. DL/IDOS/VS Logic Manual, Volumel 


Flag Code 


1. 


Description 


"k" Start of DMB directory entry 


QE of DMB directory entry 


Ca | ew 


No more secondary 


list ENQ 


DMB symbolic name 


i eka 
nego 
atone" 
eno" 
ao 
ao? 


WYyeVao! 


This DMB already in 


CIL or built during this run. 


ry og 


DMB storage address 


TTR of DMB work area 


Size of 


Unused 


SEGTEB entry 


Number segment table entries 


DMB number 

Codes 

"X¥'80'" Secondary locked 
"X'4O'" One DCB open 

"X'20'" DMB res and 

waiting storage 

"X'10'" HSAM/SHSAM input OPEN 


f ON 
e ; 
Lv 


A 
aed 


iy 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
DDIROOP (ea "xX'O8'" HSAM/SHSAM output 
open 
DDIRNOSC oa "xX'O4'" Do not schedule 
"X¥'O2'" Reserved 
DDIRNOUP .1 "xX'O1'" Do not schedule 
updates 
33 (21) 1 DDIRCOD2 — Codes 
DDIRLRSW Neg "X'O8'" DMB located but 
not relocated 
DDIR1GRP cme a "X'O4'" DMB first ina 
Shared index 
a DDIRGRP ares "X'O2'" DMB belongs to a 
( | shared index 
i DDIRBAD .1  "x'O1'"™ DMB init failed 
DDIRREFR "x'8OQ'" Index DBD. referenced 
34 (22) 2 DDIROPT DMB resident option 
36 (24) 8 DDIRDMBN DMB name converted from 
DBD name 
- 4d, (2) 44 DDIRDBPT Addr of entry in DMBName 
_ table flags in first byte 
es of DDIRDBPT 
NEWDBD "x'8O0'" Index table entries 
exist 
DBDREL10 ee 2 "X'4GO'" Release 1.0 DBD 
IMSCF erie : "X'20'" IMS compatability 
req | 
7 DDIREND “14 "*" Last address of DMB 
(_ direct 
aa DDIRLEN .110.... "#-DDIR" length of one DMB 





directory entry 
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Cross Reference 
Hex = Hex A 
Name Offset Value oo 
oa : 
ACTIV 8 08 
BILT 8 04 
DBDREL10 2C 40 
DDIR 0 
DDIRADDR 10 
DDIRBAD 21 01 
DDIRBGIN 0 00 
DDIRBLDL 14 
DDIRCODE 20 
DDIRCOD2 21 
DDIRCPMP 1c 
DDIRDBPT 2c 
DDIRDMBN 24 
DDIREND 2c 30 
DDIRGRP 21 02 
DDIRIOP 20 10 
DDIRLEN 2c 30 - 
DDIRLRSW 21 08 e \ 
DDIRNOSC 20 04 a 
DDIRNOUP 20 01 | ‘ 
DDIRNUMB  i1£E 
DDIROOP 20 08 
DDIROPEN 20 40 
DDIROPT 22 
DDIRQE 0 
DDIRQE2 4 
DDIRREFR 21 — 80 
DDIRSECL 20 80 
DDIRSGS 18 
DDIRSYM 8 Poa 
DDIRWFC 20 20 a 
~DDIR1GRP 2 O04 | Q_Y 
DMBINCIL 8 40 
IMSCF 26° 20 
INDEX 8 01 
LDSEQ 8 10 
LOAD 8 20 
LOGIC 8 02 
NEWDBD 26 80 
NOENQ 4 01 
NOTLOAD 8 80 
-_ “x 
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DIB - DL /I Interface Block 
( DSECT Name: DLZDIB 


This DSECT describes the HLPI DL/I interface block fields. 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) O DLZDIB 
O (0) 4 DIB 
0 (0) 2 DIBVER Version of user DIB 
2 (2) 2 DIBSTAT DL/I status code 
4 (4) 8 DIBSEGM Target segment name 
( Zz (C) 1 DIBFLAG DIB flag byte 
DIBWAIT PVA). EE "X'FF'" task waiting 
(resource conflict) 
13 (D) 1 Reserved 
14 (E) 2 DIBSEGLV Level feedback 
6 (10) Z DIBKFBL Key feedback area length 
18 C12) 2 (3: Reserved 
( 24 (18) 4 Length is fullword multiple 
| DIBCLRLN ...1 ..11.  "#+-DIBSTAT" Length for 
clearing DIB 
DIBLEN Ss, We ae "*-DIB" length of DIB 
Cross Reference 
Hex Hex 
Name Offset Value 
_ DIB - = 
a, DIBCLRLN 18 16 
DIBFLAG C 
DIBKFBL LO 
DIBLEN 18 18 
DIBSEGLV EK 
DIBSEGM 4 
DIBSTAT 2 
DIBVER O 
DIBWAILT @ FF 
DLZDIB O 
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DIB - DL/I System Interface Block 


DSECT Name: DLZDIB 
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This DSECT describes the HLPI DL/I system interface block fields. 


Offsets 


(Dec) (Hex) Length 


0 
0 


12 


84 
88 


92 


96 
100 


104 


108 


112 
114 
116 
118 


120 


(0) 
(0) 
(0) 
(8) 


(C) 


(OE) 


(70) 
(72) 
(74) 
(76) 


(78) 


i) 


= Oo ££ 


Field/Flag 


Name 
DLZSDIB 
DIBS 
DIBID 


DIBEIPAD 


DIBREGSV (18 


DIBRBKWD 


DIBRERC 


DIBPCBAD 


DIBIO 


DIBIOSIZ 


DIBPSIZE 


DIBCOUNT 


. DIBPRCNT 


DIBPATHC 
DIBSFlag 


DIBPSPLI 
DIBGPATH 


DIBKF 
DIBKFL 


DIBTOTN 


DIBNOPCB 
DIBRTNCD 


DIBPCBNO 


DIBPATHP 
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Flag Code 
(Bit) 


32] 


Description 


System DIB 
DIB identifier 'DLZSDIB' 


EXEC interface program 
address (BATCH/MPS only) 


Register save area 


"DIBRESSV+4" savearea 
backward pointer 


"DIBREGSV+12" savearea for 
registers 14 thru 12 


PCB address list address 
Address of EIP common IOAREA 
Size of EIP common IOAREA 
TOAREA size required on call 
DL/I call parm-count 


Previous GET path call 
DL/I parm-count 


Data transfer segment count 
Flag byte 


"X'80'" PSB generated for 
PL/I program (online only) 


Hytggm Previous call was 
a GET path call. 


"X'20'" Keyfeedback specified 
"X'10'" Feedbacklen specified 


Number of calls on 
previous GET path call 


Maximum PCB index 

Failing return code 

PCB number for currentcall 
Reserved 


Address of path call 
header control blocks 





Mk - aN 
- } 
wy 


ae 


we 
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124 


140 


144 
148 
152 
152 
156 
160 
164 
168 


168 


180 
184 
188 
192 
196 
200 
204 
208 
272 
216 
220 
224 
228 


(7C) 
(80) 
(84) 


(88) 


(8C) 


(AO) 


= £ £ - + + oS 


4 


~ a £ - Ff - + 5 £ = £ oS £ 


Fr + F 


DIBKFBAA 
DIBKFBLL 
DIBMSG 


DIBMSGSC 


DIBMSGRC 


DIBLUDIB 
DIBHLPIA 
DIBPARM 

DIBCNTAD 
DIBPARM1 
DIBPARM2 
DIBPARM3 
DIBSSAS 

DIBPARM4 
DIBPARM5 
DIBPARM6 
DIBPARM7 
DIBPARM8 
DIBPARM9 


DIBPARMA 


DIBPARMB 


DIBPARMC — 


DIBPARMD 


DIBPARME 


DIBPARMF 


DIBPARMG 


DIBPARMH 


DIBPARMI 


DIBSLEN 





111. 


Save KFB area address 


Save KFB length address 


Address of message number 


Address of DL/I status 


code 


Address of failing return 
code address of statement 
identifier 


Address of last user DIB 


Address of HLPI parm-list 


Start of call parm list 


Address of parm-count 


Parm 1 = 


Parm 2 = 


Parm 3 = 
Start of 
Parm 4 = 
Parm 5 = 
Parm 6 = 
Parm 7 = 
Parm 8 = 
ae 9 = 
Parm 10 

Parm 11 

Parm 12 


Parm 13 


 Parm 14 


Parm 15 
Parm 16 
Parm 17 


Parm 18 


Length is 


multiple 


A(function) 
A (PCB) 
A (IOAREA) 
SSAS 
A(SSA1) 
A(SSA2) 
A(SSA3) 
S (SSA4) 
A(SSA5) 
A(SSA6) 
A(SSA7) 
A(SSA8) 
S(SSAQ) 
A(SSA10) 
A(SSA11) 
A(SSA12) 
A(SSA13) 
A(SSA14) 
A(SSA15) 


fullword 


"*-DIBS" length of system DIB 
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Cross Reference 








Hex Hex Hex = Hex co 
Name Offset Value Name Offset Value | | 
aes ee peer pera Par ae 
DIBCNTAD 98 DIBSSAS A8 
DIBCOUNT 64 - DIBTOTN 6F 
DIBEIPAD 8 DLZSDIB 0 
DIBGPATH 6E 40 
DIBHLPIA 94 
DIBID 0 
DIBIO 58 
DIBIOSIZ 5c 
DIBKF 6E 20 
DIBKFBAA Te 
DIBKFBLL 80 
DIBKFL 6E 10 
DIBLUDIB 90 
DIBMSG B84 
DIBMSGRC 8C 
DIBMSGSC 88 
DIBNOPCB 70 Be 
DIBPARM 98 - 
DIBPARMA CO og 
DIBPARMB C4 rial 
DIBPARMC C8 
DIBPARMD cc 
DIBPARME DO 
DIBPARMF D4 
DIBPARMG D8 
DIBPARMH DC 
DIBPARMI EO 
DIBPARM1 9C 
DIBPARM2 AO 
DIBPARM3 A4 
DIBPARM4 | A8 
DIBPARMS5 AC 
DIBPARM6 BO 
DIBPARM7 B4 
DIBPARM8 B8 
DIBPARM9 BC 
DIBPATHC 6C 
DIBPATHP 78 
DIBPCBAD 54 
DIBPCBNO 74 
DIBPRCNT 68 
DIBPSIZE 60 yen 
DIBPSPLI 6E 80 ‘ane 
DIBRBKWD C 10 a7 
DIBREGSV C , 
DIBRERC C 18 
DIBRTNCD 72 | 
DIBS 0 
DIBSFLAG 6E 
DIBSLEN E4 E4 
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DMB - Data Management Block (DMB) Prefix 
DSECT Name: DMB 


The DMB prefix is described as part of the general structure and description of the data management block (DMB), 
which is in the DLZIDLI macro. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bate) Description 
0 (0) 0 DMB 
0 (0) 2 DMBSIZE DMB size 
DMBV 1 1 "x'80'" DL/I version 1.1 or later 
2 (2) 2 DMBLENTB Offset from DMB to first 
PSDB (DMBPSDB) 
4 (4) 2 DMBSECTB Offset from DMB to end of 
PSDB's+1 
6 (6) 1 DMBORG DMB organization 
DMBSHIS “| "X'O1'" Simple HISAM 
DMBISAM1 ils "X'O2'" HISAM 
DMBISAM2 Pala "X'O3'" (Not used in DL/I DOS/VS) 
DMBSSAM Pain "x'O4'" Simple HSAM 
DMBHSAM a "X'O5'" HSAM 
DMBHD ~11. "X'O6'" HDAM 
DMBHI 1117 "X'O7'" HIDAM 
DMBNDEX "X'O8'" Index data base 
7 C7) 1 DMBLDDCB ACB number-1 of Sequential 
data set used to write 
index records on data base load 
7 (7) 1 DMBRES 1 (Not used in DL/I DOS/VS) 
8 (8) 2 DMBPDATA Length of system data in 


index data base (protected) 
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Offsets Field/Flag Flag Code 











(Dec) (Hex) Length Name (Bit) Description 10 (A) 1 DMBPFLG 
DMBIMSC 1... «2...  "X'80'" IMS compatibility required 
11 (B) 1 Reserved 
12 (C) 1 DMBNREF Number of entries in | 
external reference table 
12 (C) © 4 DMBDALGR Address of direct 
algorithm communication 
table if HDAM (DMBDACS); 
LRECL number if HSAM 
12 (10) DMBPPRND | "&" End of DMB prefix 
Note: | 
This is also the address of the first ACB extension (DMBACBXT). 
DMBPPRLN "DMBPPRND-DMB" length of 
the DMB prefix ee 
i 
aed 
Cross Reference 
Hex Hex 
Name Offset Value 
DMB 0 
_DMBDALGR C 
DMBHD 6 06 
DMBHI 6 07 
- DMBHSAM 6 05 
DMBIMSC A 80 
DMBISAM1 6 02 
DMBISAM2 6 03 
DMBLDDCB 7 
DMBLENTB 2 
DMBNDEX 6 08 
DMBNREF C 
DMBORG 6 
DMBPDATA 8 
DMBPFLG A 
DMB’PPRLN Cc 10 : 
DMBPPRND om 10 a 
DMBRES 1 F re J 
DMBSECTB 4 ec 
DMBSHIS 6 01 
DMBSIZE 0 
DMBSSAM 6 O04 
DMBV 11 O 80 
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DPPCB - PCB Dope Vector Table 
( | DSECT Name: DPPCB 


The PCB dope vector table is described as part of the general structure and description of the program specification 
block (PSB). 


RECORD LAYOUT - DPPCB 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 4 DPPCBDBD The address of the location 
that contains DBPCBDBD 
4 (4) 2 Maximum Length Maximum length: Halfword 


binary number which 
specifies number of storage 
units allocated for the 
a string; byte count if 
( : character, bit count if bit 


6 (6) 2 Current Length Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string | 

8 (8) 4. DPPCBLEV The address of the location 

: that contains DBPCBLEV 


- 12 (C) 2 Maximum Length Maximum Length: Halfword 

OS binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 


14 (E) Z Current Length Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 


\ 
( y 16 (10) 4 DPPCBSTC The address of the location 
pm 4 that contains DBPCBSTC 
20 (14) 2 Maximum Length Maximum Length: Halfword 


binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 


22 (16) 2 Current Length Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 


24 (18) 4 DPPCBPRO The address of the location 
that contains DBPCBPRO 
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(Dec) (Hex) Length 


Offsets 
28 (1C) 
30 (1E) 
32 (20) 
36 (24) 
40 (28) 
42 (2A) 
44 (2C) 
48 (30) 
52 (34) 
56 (38) 
58 (3A) 


2 


Field/Flag Flag Code 
Name (Bit) 


Maximum Length 


Current Length 


DPPCBJCB 
DPPCBSFD 


Maximum Length 


Current Length 


DPPCBLKY 
DPPCPNSS 
DPPCBKFD 


Maximum Length 


Current Length 
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Description 


Maximum Length: Halfword 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 


Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 


The address of the location 
that contains DBPCBJCB 


The address of the location 
that contains DBPCBSFD 


Maximum Length: Halfword 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if. 
character, bit count if bit 


Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 


The address of the location 
that contains DBPCBLKY 


The address of the location 
that contains DBPCBNSS 


The address of the location 
that contains DBPCBKFD 


Maximum Length: Halfword 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 


Current Length: Halfword 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 
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ALPHABETIC LIST OF FIELD/FLAG NAMES 





Hex Hex 
Name Offset Value 
DPPCBDBD O 
DPPCBJCB 20 
DPPCBKFD 34 
DPPCBLEV 8 
DPPCBLKY 2e 
DPPCBPRO 18 
DPPCBSFD 24 
DPPCBSTC 10 
DPPCBNSS 30 
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DSG - Data Set Group 


DSECT Name: DSG 


Licensed Material—Property of IBM 


The DSG is described as part of the general structure and description of the program specification block (PSB), 
which is part of the DLZIDLI macro. 


Note: With the exception of the first three characters of each field/flag name (DSG instead of JCB) the layout of 
the data set group is identical to the layout of the DSG Section of the job control block (JCB). 


(Dec) (Hex) Length 


Offsets 
0 (0) 
0 (0) 
4 (4) 
6 (6) 
7 (7) 
8 (8) 
8 (8) 
8 (8) 
12 (C) 
14 (E) 


0 


Field/Flag 


Name 





DSG 


DSGDSG 


DSGDCBA 


DSGDMBNO 


DSGDCBNO 


DSGINDA 
DSGDSOLS 


DSGDSORI 


DSGDSOHD 
DSGDSOHI 


DSGDSOH2 


DSGDSOH1 


DSGDSOHS 


DSGDSOUP 


DSGIRECA 


DSGHSADD 


DSGTTR 
DSGBOFF 


DSGINDB 


DSGSETLR 


DSGGETR 


DSGBATIS 
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Flag Code 
(Bit) 








Description 


"*" Start of each DSG 
section of the JCB 


Address of ACB extension 


for this data set (KSDS 
ACB extension if HISAM) 


DMB number for this DSG 


ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 


JCB indicators 
"x'so'" This is last DSG in JCB 


"Xx'44'" Data set group is 
root in index. 


"X'20'" Data set group is HDAM 
"X'10'" Data set group is HIDAM 


"x'O8'" (Not used in DL/I 
DOS/VS) 


"X'O4'" Data set group is 
HISAM or simple HISAM 


"X'O2'" Data set group is 
HSAM or simple HSAM 


"x'OQ1'" Data set group is 
SHSAM or SHISAM 


HSAM I/O area after open 


HSAM block size 
JCB indicators 


"x'8O0'" (Not used in DL/I 
DOS/VS) 


"X'4o'" (Not used in DL/I 
DOS/VS) 


"y'20'" (Not used in DL/I 
DOS/VS) 
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Offsets 
(Dec) (Hex) Length Name 


DSGSETL2 
DSGGETGT 
DSGKEYSR 
DSGSTLIS 


15 (F) 1 DSGINDC 


DSGBLDEL 


(_ DSGHDULD 


DSGCONST 

DSGPADKY 
DSGDUPS 

( DSGSPOST 
DSGSWAP 


DSGHSWLR 


16 (10) 1 DSGINDG 





DSGRTNER 


ae (11) 1 (3) 











Field/Flag 


Flag Code 
(Bit) 





Description 


"X'10'" (Not used in DL/I 
DOS/VS) 

"x'O8'" (Not used in DL/I 
DOS/VS) 

"X'O4'" (Net used in DL/I 
DOS/VS) 

"xX'O2'" (Not used in DL/I 
DOS/VS) | 
"X'O1'" (Not used in DL/I 
DOS/VS) 


JCB indicators 


"X'80'" This DSG belongs 
to delete/replace 


"X'4O'" HD unload is running 


"x'20'" Index data set 
contains constant 


"X'10'" Search argument 
not equal to key length 


"S'O8'" Non-unique 
secondary index keys 


"X'O4'" (Not used in DL/I 
DOS/VS) 


"X'O2'" (Not used in DL/I 
DOS/VS) 


"X'O1'" HSAM wrong length record 


DSG indicators retrieves 
variable length flags 


"X'80'" Segment prefix has 
been moved to work area 


"X'4O'" Segment has been 
completely expanded 


"X'10'" Force complete 
segment expansion 


"X'O8'" The variable length 
routine has been entered 
for segment 

"X'O4'" Data return call 
"X'O2'" Path return call 
"X'O1'" Used by retrieve 


Reserved 
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Offsets _.Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description co 
20 (14) 4 DSGNOSAM | Retrieves HSAM ID > ae 
24 (18) 4 DSGLROOT | RBA of current root 
DSGDSEND eas ee | eee Maen 
DSGDSGLN Pe as ee "DSGDSEND-DSGDSG" length of 
each DSG section of the JCB 
Cross Reference 
Hex Hex 
Name Offset Value 
DSG 0 
DSGBATIS E 20 
DSGBLDEL F 80 
DSGBOFF C | 
DSGCONST EF 20 a 
DSGDCBA 0 GG 
DSGDCBNO 6 er 
DSGDMBNO 4 
DSGDSEND 18 1C 
DSGDSG 0 00 
DSGDSGLN 18 1c 
DSGDSOHD 7 20 
DSGDSOHI 7 10 
~ DSGDSOHS 7 02 
DSGDSOH1 7 O04 
DSGDSOH2 4 08 
DSGDSOLS 7 80 seek 
DSGDSORI Z 44 fo’ 
- DSGDSOUP 7 01 ee 
DSGDUPS F 08 
DSGGETGT EB 04 
DSGGETR E 40 
DSGHSADD 8 
DSGHSWLR F 01 
DSGINDA 7 
DSGINDB E 
DSGINDC F 
DSGINDG 10 
DSGIRECA 8 oe. 
DSGKEYSR E 02 oo 
DSGLROOT 18 we 
DSGNOSAM 14 - 
DSGNXTIS E 10 
DSGPADKY F 10 
DSGRTNER 10 01 
DSGSETLR E 80 
DSGSETL2 E 08 
DSGSPOST F O04 
DSGSTLIS E 01 
DSGSWAP F 02 
DSGTTR 8 
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DWR - Data Work Record 
DSECT Name: DLZPRDWR 
This DSECT has the following uses: 


1. Record the old and new location of a segment. 
2. Record the location and old value of a pointer that may have to be updated. 


These records are created by RELOAD and SCAN. The same format is used by UPDATE for its spill table and file. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DWR 
0 (0) 4 DWRSTART 
O (0) 4 DWRRMOVE New RBA of a moved segment 
4 (4) 4 DWRRCOMP Old RBA of a segment for 
compare 
8 (8) 2 DWROACT Offset in ACT which built 
this record 
10 (A) 1 DWRCTYPE Record type code 
11 (B) 1 DWRCSORT Minor sort key 
11 (B) 1 DWRCDSG DSG of moved segment in K 
record 
12 CE) 6 DWRCSKEY Update sort key: DB ID, 
DSG, RBA 
12 (C) 1 DWRCRDB Data base ID of segment to 
be updated 
13 (D) 1 DWRCRDSG Data set group ID of 
segment to be update 
14 (E) 4 DWRRUPDT RBA of segment to be updated 
DWRLLEN *-DWR Length of DWR 
Cross Reference 
Hex Hex 
Name Offset Value 
DWR O 
DWRCDSG B 
DWRCRDB C 
- DWRCRDSG D 
DWRCSKEY C 
DWRCSORT B 
DWRCTYPE A 
DWRLLEN - 12 12 
DWROACT 8 
DWRRCOMP 4 
DWRRMOVE 6) 
DWRRUPDT E 
DWRSTART 0 
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EIPL - Exec Interface Program Parameter List 
DSECT Name: DLZEIPL 


This DSECT describes the DL/I HLPI interface program parameter list fields. 











Offsets Field/Flag Flag Code : 

(Dec) (Hex) Length Name (Bit) Description 
0 (0) O DLZEIPL 

0 (0) 4 EIPPARML DL/I-EIP parameter list 
0 (0) 4 EIPERMSG Address of DL/I message 


routine (online/batch/MPS) 


The following fields are used only in batch/MPS environment 


4 (4) EIPEPBO V-ADDRESS "V(DLZEIPI)" address of 
exec interface program 
(DLZEIPBO) 
8 (8) 4 EIPABEND Address of DL/I ABEND 
routine 
Note: 


The following three fields must remain in the following order: 


1. Address of the PCB list 
2. Pointer to length of initial storage area 
3. Address of initial storage area 


12 (C) 4 EIPPCBL Address of PCB list 
16 (10) 4 EIPPLILN Pointer to length of 
initial storage area 
20 (14) 44 EIPPLISA | Address of initial storage 
area 
EIPSPCLN soe, Wilce-6 "*-ETPPCBL" length of PL/I 
parameter list 
24 (18) 4 EIPSDIB Address of system DIB 
28 CTS) 1 EIPFLAG Flag byte 
: EIPPLIPS Veseeves: eS, "X'80'" PSB generated for 
: PL/I program 
EIPPLIPG polio —ceaea. x "X'40'" Application 
program is PL/I 
EIPMPS en ee eee "X'20'" MPS environment 
29 (1D) 3 reserved 
EIPLLEN sgn dee Sun ta toree "*—-ETPPARML" EIP parameter 


list length 
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Cross Reference 


— Name Offset Value 
DLZEIPL 0 
EIPABEND 8 
EIPEPBO 4 
EIPERMSG 0 
EIPFLAG 1C 
EIPLLEN 1D 20 
EIPMPS 1C 20 
EIPPARML 0 
EIPPCBL Cc 
EIPPLILN 10 
EIPPLIPG 1C 40 
EIPPLIPS Te 80 
EIPPLISA 14 
EIPSDIB 18 
EIPSPCLN 14 OC 
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EXWCB - EXTRACT DEFINEs Work Control Block 


DSECT Name: EXWCB 


The EXTRACT DEFINES work control block is the work area used to build DEFINE commands for the automatic 


ISQL EXTRACT DEFINES utility. 


Offsets 
(Dec) (Hex) Length 

0 (0) 0 
0 (0) 8 
8 (8) 4 
12 (C) 4 
16 (10) 4 
20 (14) 4 
24 (18) 4 
28 (1C) 4 
32 (20) 4 
36 (24) 4 
40 (28) 4 
44 (20) 4 
48 (30) 4 
52 (34) 4 
56 (38) 4 
60 (3C) 1 
61 (3D) 1 
62 (3E) 1 
63 (3F) 1 
64 (40) 12 
66 (42) 10 
76 (4C) 4 
80 (50) 4 
84 (54) | 4 
88 (58) 44 
92 (5C) 4 
96 (60) 4 


Field/Flag Flag Code 
Name (Bit) 





EXWCB 
DECWORK 
WORK 
LINKSAV1 
LINKSAV2 
LINKSAV3 
LINKSAV4 
LINKSAV5 
LINKSAV6 
LINKSAV7 
SAVEBAS 1 
SAVEBAS2 
SAVEBAS3 
ASQLD 
ASOLCA. 
DELIMIT 
DEL1 
DEL2 
DEL3 
SYNERMSG 
WORD 
WORDE 


NEXTPOS 
DPCKLEN 
DPCKNUM 
LPCKLEN 


TEMPSTR 
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Description 


Work area for CVD 
Full word work area 


Linkage save area 


Variables to save base 


Register 


Address of SQLDSECT 
Address of SQLCA 
Delimiter found 


Three valid delimiters 


Syntax error word 
The word 
Pointer to end of word 


Next default field 
starting position 


Destination parent 
concatenated key length 


Destination parent 
concatenated key number 


Logical parent 
concatenated key length 


Used as pointer to start position of 


concatenated key field 
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(Dec) (Hex) Length 


Offsets 
100 (64) 
104 (68) 
108 (6C) 
42 (70) 
114 (72) 
1.16 (74) 
118 (76) 
118 (76) 
119 (77) 
120 (78) 
120 (78) 
123 (7B) 
124 (7C) 
124 (7C) 
125 (7D) 
132 (84) 
132 (84) 
135 (87) 
136 (88) 
136 (88) 
139 (8B) 
140 (8C) 
140 (8C) 
141 (8D) 
210 (D2) 


4 


70 


69 


Field/Flag 


Name 





LENCKFT 


ACKFTAB 


LASTCKFE 


CKFTCNT 


COUNTER 


SEQSAVE 


RETCD 


RETCD2 

SAVSQLCD 
SAVSQLC1 
SAVSOLC2 
SAVEERRP 
SAVERRP1 
SAVERRP2 


SV1ERRD 


SV1ERRD1 
SV1ERRD2 


SV2ERRD 


SV2ERRD1 
SV2ERRD2 
SAVEERRM 
SAVERRM 1 
SAVERRM2 
TFLAGS 


PNUMF'LAG 


COMMA 











Description 


Length of concatenated key 
field table 


Address of first entry in 
concatenated key field table 


Address of the last 
concatenated key field 

entry that was added to the 
concatenated key field table 


Number of entries in 
concatenated key field table 


Used as counter for 
indexing into concatenated 
key field table 


Save for sequence number 
for routine table 


Return code for GETVIS 


Save for SQLCode 

Labels for making last 
Byte printable 

Save for SQLERRP 

Labels for clearing area 
To blanks 


Save for first SQLERRD 
value 


Labels for making last 
Byte printable 


Save for second SQLERRD 
value 


Labels for making last 


Byte printable 


Save for SQLEERRM 


Labels for clearing area 
To blanks 
Flags for execution 


"X'80'" PCB number 
specified 


"X'4O'" Just passed comma 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
so 
COMMAOFF 1.11 1111 "X'BF'" Used to clear ; 
comma flag . ee 
NONALPHA ote "x'20'" Looking for 
PCBnumber 
PSBFLAG 21 "X'10'" 'PSBName' 
processed 
PCBFLAG - "X'O8'" 'PCBName' 
processed 
PROCFLAG .1..  "x'04'" '"pLTPROC' 
processed 
REPFLAG en "X'O2'" 'REPLACE' 
processed 
USERFLAG rae "X'O1'" 'USERID' processed = 
; = 
211 (D3) 1 PCBFLAGS Flags for PCB processing L 2 
LOGICAL 1. 5 "X'80'" Access is logical 
212 (D4) 1 SEGFLAGS Flags for segment 
processing 
CONCAT Ts - "X'80'" Concatenated 
segment 
VLC oe e "X'4O'" Virtual logical 
eniid GX 
aa 
FLS Pls: wee "X'20'" Field level ‘YY 
sensitivity 
XDFLD ed "xX'10'" This is XDFLD 
213 (D5) 1 EFLAGS Flags for errors 
INVALDEL ss "X'80'" Invalid delimiter 
found | 
CONTIN Pe i "X'40'" Bad continuation “- 
WARNING1 ols "X'20'" Duplicate field 
name warning to be printed 
WARNING2 sl "X'10'" Warning to be 
printed for a field 
beginning with a 
non-alphabetic character 
WORDERR 1. "X'O8'" Error occurred 
while parsing the word 
CANCEL goalies "X'O4'" Tndicates a severe 
SQL error occurred anda 
cancel is necessary 
214 (D6) 1 INITFLGS SQL connect flag 
CONNSOL a4 "X'01'" SOL/DS connect 
? established 
EXWCBLEN ee Ee "*-EXWCB" length of EXWCB 
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DSECT 























Cross Reference 


Name 


ACKFTAB 
ASQLCA 
ASQLD 
CANCEL 
CKFTCNT 
COMMA 
COMMAOFF 
CONCAT 
CONNSQL 
CONTIN 
COUNTER 
DECWORK 
DELIMIT 
DEL1 
DEL2 
DEL3 
DPCKLEN 
DPCKNUM 
EFLAGS 
EXWCB 
EXWCBLEN 
FLS 
INITFLGS 
INVALDEL 
LASTCKFE 
LENCKFT 
LINKSAV1 
LINKSAV2 
LINKSAV3 
LINKSAV4 
LINKSAV5 
LINKSAV6 
LINKSAV7 
LOGICAL 
LPCKLEN 
NEXTPOS 
NONALPHA 
PCBFLAG 
PCBFLAGS 
PNUMFLAG 
PROCFLAG 
PSBFLAG 
REPFLAG 
RETCD 
RETCD2 
SAVEBAS1 
SAVEBAS2 
SAVEBAS3 
SAVEERRM 
SAVEERRP 


Hex 
Offset 
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Hex 
Value 


D7 
20 


80 


PT eC AE TE TTT SERPS ARTE PROTECTORATE © 17°19 AORN G1 COMET A LM MERE 80 OER 


Name 


SAVERRM1 
SAVERRM2 
SAVERRP 1 
SAVERRP2 


SAVSQLCD - 


SAVSQLC1 
SAVSOLC2 
SEGFlagS 
SEQSAVE 
SV 1ERRD 
SV 1ERRD 1 


SV 1ERRD2 


SV2ERRD 
SV2ERRD1 
SV2ERRD2 
SYNERMSG 
TEMPSTR 
TFLAGS 
USERFLAG 
VLC 
WARNING 1 
WARNING2 
WORD 
WORDE 
WORDERR 
WORK 
XDFLD 


Hex H 


CX 


Offset Value 
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FCB - File Control Block 


DSECT Name: FILECB 





This DSECT describes the fields used to control one file used by the partial reorganization utility. It is passed asa 
parameter to the work file manager. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 FILECB 
O (0) 4 FCBSTART 
@) (0) 4 FCBADTF Address of the DTF for 
this file 
4 (4) 4 FCBABUF Address of the current 
record 
8 (8) 4 FCBAEOD Address of the end of data ef *. 
routine \ 
Qe? 
12 (C) 4 FCBFRECT Number of records read or 
written 
16 (10) 4 Reserved 
20 (14) 2 FCBHLLRL Last logical record length 
22 (16) 2 Spare half word 
24 (18) 2 FCBHLREC Logical record length ors 
(ig 
26 (1A) 2 FCBHBLKS Physical block size \ es 
28 (1C) 2 FCBOCREC Offset of current record 
in block 
30 (1E) 1 FCBGSTAT File status flags 
FCBOINPT NX B02" PLL. 2s In: Tnpwt 
mode 
FCBQOUTP "X'4O'" File is in output om 
mode € } 
Ww 
31 (1F) 1 FCBGREQU Request flags » 
FCBOQOPNI "X'80'" Open file for 
input 
FCBOQOPNO "X'4O'" Open file for 
output 
FCBQGET "xX'20'" Get next record 
FCBOQPUT "X'10'" Put a record 
FCBQCLOS "xe"O8""" Close the file 
FCBLLEN "*-FCBSTART" length of a 
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FCB entry 





(_ 





Name 


FCBABUF 
FCBADTF 
FCBAEOD 
FCBFRECT 
FCBGREQU 
FCBGSTAT 
FCBHBLKS 
FCBHLLRL 
FCBHLREC 
FCBLLEN 
FCBOCREC 
FCBQCLOS 
FCBQGET 
FCBQINPT 
FCBQOPNI 
FCBQOPNO 
FCBQOUTP 
FCBQPUT 
FCBSTART 
FILECB 


Cross Reference 


Hex 


Offset 
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Hex 


Value 
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FDB - Field Description Block 


DSECT Name: FDB 
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The field description block (FDB) is described as part of the general structure and description of the data 


management block (DMB), which is in the DLZIDLI macro. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
@) (0) e) FDB 
0 (0) 8 FDBSYMBL Symbolic name 
8 (8) 2 FDBOFFST Field offset from 
beginning of segment 
10 (A) 1 FDBDCENF Flags 
FDBLAST oe "x'80'" Last FDB for this 
segment 
FDBKEY geleace "¥'4O'" This is segment's 
sequence field 
FDBEQOK acai lie "X'20'" Duplicate sequence 
fields allowed 
FDBSPEC ied "X'10'" Special FDB 
(XDFLD, CK, or SX) 
FDBTYPE i i a "X'O7'" Field format bits 
FDBZD Ld "X'07'" Field is zoned 
decimal 
FDBFP Py ee "X'O4'" Field is floating 
point 
FDBPACK Pa ee "X'O2'" Field is packed 
decimal 
FDBHex Se ae "X'O1'" Field is 
hexadecimal 
FDBCHAR bales. ae wl "FDBPACK+FDBHex" field is 
character 
11 (B) ahs FDBFLENG Executable length of field 


The following fields describes the /CK system related field 


O (0) 3 FDBSYSNM Cry Ck 

3 (3) 5 Remainder of field name 

8 (8) 2 FDBOFFCK Offset from beginning of 
concatenated key 

10. (A) 2 FDBSYSLN Bits 0-3 = X'0001' bits 


4-15 = length-1 


5-68 DL/I DOS/VS Logic Manual, Volume1 

















Licensed Material—Property of IBM 


The following fields describe the XDFLD 


Offsets 

(Dec) (Hex) Length 
0 (0) 8 
8 (8) 2 

10 (A) 1 


117 


Field/Flag 


Name 
FDBXDNM 


FDBXDSEC 


FDBXDFLG 
FDBXDLST 


FDBXDSYM 


FDBXDSSS 


FDBXDSPC 
FDBXDCON 
FDBXDSSQ 


FDBXDSOR 


FDBXDEQ 


FDBXDLEN 


FDBEND 


FDBLEN 





Flag Code 
(Bit) 





eee 


eal eae 


Description 


FDB name 


Offset to the secondary 
list for this index 


Flags 
"xX'80'" Last FDB 


"xX'4O'" Pointer is 
symbolic 


"X¥'20'" Pointer contained 
in source/SUBSEQ data 


"X'10'" Special FDB 
"x'OS'" Constant present 
"X'O4'" SUBSEQ present 


"xX'O2'" (Not used in DL/I 
DOS/VS) 


"X'O1'" Indexed segment 
same as indexed source 
segment 

Length of search field 
"*" End of FDB entry 


"FDBEND-FDBSYMBL" length 
of FDB entry 
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Cross Reference 


Hex = Hex | f 
Name Offse Value WY 
FDB 0 
FDBCHAR A 03 
FDBDCENF A 
FDBEND B 0c 
FDBEQOK A 20 
FDBFLENG B 
FDBFP A O04 
FDBHex A 01 
FDBKEY A 40 
FDBLAST A 80 
FDBLEN B oc 
FDBOFFCK 8 
FDBOFFST 8 
FDBPACK A 02 
FDBSPEC A 10 
FDBSYMBL 0 
FDBSYSLN A 
FDBSYSNM 0 ( 
FDBTYPE A 07 aed 
FDBXDCON A 08 
FDBXDEQ A 01 
FDBXDFLG A 
FDBXDLEN B 
FDBXDLST A 80 
FDBXDNM ) 
FDBXDSEC 8 
FDBXDSOR A 02 
FDBXDSPC A 10 
FDBXDSSQ A O04 
FDBXDSSS A 20 —_ 
FDBXDSYM A 40 e Y 
FDBZD A 07 ee 
fo 
es 
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FER - Field Exit Routine Interface List 
( : DSECT Name: FER 


The FER (Field Exit Routine Interface List) is used to pass information to the named user-written exit routine 
whenever a designated field is to be processed. 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) @) FER 
@) (0) 1 FERPEC Entry code 
FERPGET 11 21277 "C'G'" GET 
FERPPUT toed bile nel pe PUT 
1 (1) 1 FERPFNCT Function code 
*, FERPRET 11 Pe | "Cc'G'" retrieve segment 
—_ conversion 
FERPINS TP lvetes “ia gel MOET gnsert 
FERPREP 171.1 1..1 "C'R'" replace 
FERPSSA 111. 1 "Cc'sS'" retrieve SSA 
conversion 
FERPXDF 111 2111 "Cc'x'" retrieve SSA 
conversion for XDFKD 
( 2 (2) 1 FERPCSC Conversion status code 
_ FERPCSOK .1. "Chom OK 
FERPCSNT (i ore "C'aAa'" numeric truncation 
error 
FERPCSCT Wee ecg Uy "C'B'" character 
truncation error 
FERPCSFE Wieder. qeacl "CcC'c'" format error 
(- FERPCSTC A lige 4a lee "D'D'"™ type conflict 
~ 4 (4) 4, FERPPSA Physical segment address 
(if variable length points 
to two byte length field) 
8 (8) 2 Reserved 
10 (A) 2 FERPPFL Physical field length 
(zero if virtual field) 
12 (C) 4 FERPPFA Physical field address 
(zero if virtual field) 
16 (10) 4 FERPUSA User segment address 
20 (14) 2 Reserved 
22 (16) 2 FERPUFL User field length 
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Offsets 7 Field/Flag Flag Code | 
(Dec) (Hex) Length  #$/%Name (Bit) Description ; 
24 (18) 4 FERPUFA User field address ‘& 
28 = (1C) 4 FERPFSBA | FSB address —_ 
32 (20) 4 FERPUWA (12) User work area 


FERPEND TS caiets "*" End of field exit 
routine interface list 


FERPLEN Mog eves "FERPEND-FERPEC" length of 


the field exit routine 
interface list 


Cross Reference 


Hex Hex 
Name Offset Value 
FER 0 _ 
FERPCSC 2 (“ % 
FERPCSCT 2 C2 - 
FERPCSFE 2 C3 
FERPCSNT 2 Ch 
FERPCSOK 2 40 
FERPCSTC 2 C4 
FERPEC 0 
FERPEND ‘20 50 
FERPFENCT 1 
FERPFSBA TC 
FERPGET @) C7 
FERPINS 4 C9 
FERPLEN 20 50 Pa 
FERPPFA C a ? 
FERPPFL A ae 
FERPPSA 4 
FERPPUT 0 D7 
FERPREP 1 D9 
FERPRET ‘ ey 
FERPSSA 1 E2 
FERPUFA 18 
FERPUFL 16 
FERPUSA 10 
FERPUWA  —_—.20 
FERPXDF 1 E7 | co 
oo 
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FERT - Field Exit Routine Table 


DSECT Name: FERT 





The FERT (field exit routine table) is used to hold information about a user-written exit routine. 





Offsets | Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 0 FERT 
O (0) 8 FERTNAME Module name 
8 (8) 4 FERTRTEP Module entry point 
12 (S) 4 FERTRTLG Module length 
16 (10) 4 FERTPRES Pointer to next FRT entry 
20 (14) 1 FERTFLAG Flag byte 
~~ FERTDUMP 1... ....  "X'80'" Control block 
a: dumped 
21 (15) ce Reserved 
FERTEND Ge 31d) es eat "*" end of field exit 
routine table 
FERTLEN tee he de ey "FERTEND-FERTName" length 
of field exit routine 
table 
( 7 Cross Reference 
ca Hex Hex 
Name Offset Value 
FERT O 
FERTDUMP 14 80 
FERTEND LS 18 
FERTFLAG 14 
FERTLEN 15 18 
FERTNAME O 
FERTPRES 10 
FERTRTEP 8 
FERTRTLG C 
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FLD - Field Level Description 


DSECT Name: FLD 
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The FLD (field level description) block is used to hold information about fields, operators, and connectors. 


Offsets Field/Flag 
(Dec) (Hex) Length Name 


0 (0) 0 FLD 


0 (0) 1 FLDF 1 


FLDDATA1 Vis eS 


FLDKEY 1 


FLDNOCOV 


FLDNXTSM 


FLDDPAR 


FLDLCH 


FLDMBR 


FLDMEMEQ Astute 


FLDMEMLT 


FLDMEMGT 


FLDMEMNE 


FLDMEMAD 


FLDMEMOR 


FLDMEMRP 


FLDSSAOF 


FLDFLENG 


FLDEND er 


FLDLENG 
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Flag Code 


me ee 


a Pe 


male ie 





Description 


FLD flags 


"X'80'" Field qualified on 
data 


"X'4O'" Field qualified on 
key 


"X'20'" No conversion for 
this field 


-"X¥'10'" Next field is the 


same 


"X'O8'" Field in 
destination parent 


"X'O4'" Field in logical 
child | 


Encoded 
operators/connectors 


"X'80'" Operator has = 
sign 


"X'4O'" Operator has <_ 
sign 


"X'20'" Operator has > 
Sign 


"FLDMEMGT+FLDMEMLT" 
operator is not equal 


"x'O4'" AND connector 
"X'O2'" OR connector 
"X'O1'" Right parenthesis 


Offset to value area in 
SSA for this field 


Executable length of field 
Reserved 


Wye WT 


"FLDEND-FLD" length of 
each FLD entry | 


—_ 


Nae . y 


Loh 
benh 


ey 
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Cross Reference 





Hex Hex 
Name Offset Value 
FLD 0 
LDDATA1 O 80 
DDPAR 0 08 
FLBEND _ 5 08 
FLDFLENG 4 
FLDF 1 0 
FLDKEY 1 0 40 
FLDLCH O O04 
FLDLENG 5 08 
FLDMBR 1 
FLDMEMAD 1 O04 
FLDMEMEQ 1 80 
FLDMEMGT 1 20 
FLDMEMLT 1 40 
FLDMEMNE 1 60 
FLDMEMOR 1 02 
aie FLDMEMRP 1 01 
se FLDNOCOV 0 20 
ee’ FLDNXTSM 0 10 
FLDSSAOF 2 
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FSB - Field Sensitivity Block 


DSECT Name: FSB 
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The FSB (field sensitivity block) is used to hold information about a field which has been defined with a SENFLD 


statement during PSBGEN. 


Flag Code 
(Bit) 


Field/Flag 
Name 


FSB 
FSBFLDNM 
FSBFDBP 


FSBPCHA 
FSBPHYAD 


FSBPVLOC 


FSBPVTYP 





Description 


Field name 
FDB address (ACBGEN only) 


Physical view chain 
pointer (ACBGEN only) 


Field physical adjustment 
factor (ACBGEN only) 


Displacement in physical segment 


Physical field type 


FSBLAST 
FSBKEY 
FSBEQOK 


FSBDPF 


aes 


My tgoun 


Last FSB 
"X'4O'" Sequence field 
"X'20'" Duplicate sedienes allowed 
Ox 10" reid as. an 


Offsets 
(Dec) (Hex) Length 
0 (0) ) 
0 (0) 8 
0 (0) 4 
4 (4) 2 
6 (6) 2 
8 (8) 2 
10 (A) 1 
11 (B) 1 
12 (C) 2 
14 (E) 2 


FSBTYPE eatiee Seiki 


FSBZD eur, ale 
FSBFP hte. Oillte 
FSBCHAR pbc tae ld 
FSBPACK bateca: sills 


FSBHEX Siestavse ee. 5 
FSBFLAG 


FSBSSA deae: 


FSBOVF g liand 
FSBCR gaat Mable «2p atvarss 


FSBPVLEN 


FSBUVLOC 
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destination parent 
"X¥'O8'" Reserved 
"X'O7'" Field format bits 


"X'O7'" Field format is 
zoned decimal 


"X'O4'" Field format is 
floating point 


"X'O3'" Field format is 
character . 


"X'O2'" Field format is 
packed decimal 


"X'O1'" Field format is binary 
Flags 


"X'80'" Field may be used 
in an SSA 


"X'4O'" Field has subfields 
"X'20'" Conversion required 


Physical field length 
(executable) 


Field displacement in 
user's view 
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Offsets 
(Dec) (Hex) Length 
16 (10) 1 
17 (11) 1 
18 (12) 2 
20 (14) “A 
24 (18) 4 
28 (1C) 4 


Pield/Flag 


Name 


FSBUVTYP 


FSBIV 


FSBFER 


FSBVF 
FSBNR 


FSBUZD 


FoBUPP 


FSBUCHAR 


FSBUPACK 


FSBUHex 


FSBUVLEN 


FSBIVA 


FSBFERTA 


FSBCHAIN 
FSBEND 


FSBLEN 


Flag Code 
(Bit) 





Pe eee ea 


Description 


User's field type 
"X'80'" Reserved 


"xX'4O'" Tnitial value 
specified 


"X'20'" Field exit routine 
specified 


"X'10'" Field is virtual 
"X'O8'" Replace prohibited 


"X'O7'" User field format 
is zoned decimal 


"X'O4'" User field format 
is floating point 


"X¥'O3'" User field format 
is character 


"X'O2'" User field format 
is packed decimal 


"X'O1'" User field format 
Is binary 


Reserved 


User's field length 
(executable) 


Pointer to specified 
initial value 


Field exit routine table 
entry address 


Chain pointer for ACBGEN 
"*" end of FSB entry 


"FSBEND-FSBFLDNM" length 
of FSB entry 
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Cross Reference 


Hex Hex 
Name Offset Value 
FSB 0 
FSBCHAIN ~ AC 
FSBCHAR A 03 
FSBCR B 20 
FSBDPF A 10 
FSBEND 1C 20 
FSBEQOK A 20 
FSBFDBP 0 
FSBFER 10 20 
FSBFERTA 18 
FSBFLAG B 
FSBFLDNM 0 
FSBFP A O04 
FSBHex A 01 
FSBIV 10 40 
FSBIVA 14 
FSBKEY A 40 
~ FSBLAST A 80 
FSBLEN Te 20 
FSBNR 10 08 
FSBOVF B 40 
FSBPACK A O02 
FSBPCHA 4 
FSBPHYAD 6 
FSBPVLEN C 
FSBPVLOC 8 
FSBPVTYP A 
FSBSSA B 80 
FSBTYPE A 07 
FSBUCHAR 10 03 
FSBUFP 10 O04 
FSBUHEX 10 01 
FSBUPACK 10 02 
FSBUVLEN 12 
FSBUVLOC E 
FSBUVTYP 10 
FSBUZD 10 07 
FSBVF 10 10 
FSBZD A 07 
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HLPIL - High Level Program Interface Parameter List 


DSCET Name:. DLZHLPIL 


This DSECT describes the fields contained in the HLPIL parameter list. 


(Dec) (Hex) Length 


Offsets 

0 (0) 
0 (0) 
4 (4) 
8 (8) 
8 (8) 
8 (8) 
12 (C) 
16 (10) 
20 (14) 
24 (18) 
28 (1C) 
32 (20) 
32 (20) 

Note: 


0 


4 


Field/Flag 


Name 
DLZHLPIL 


HLPIARGO 


HLPIDIBP 


HLPIPSBN 


HLPICKID 


HLPIPCBI 


HLPISEGN 


HLPISIOA 


HLPILIOA 


HLPIOFST 


HLPIKFBA 


HLPIKFBL 


HLPIOQS 


HLPIOPER 





Description 


Address of ARGO paramete 
list 


Address of user DIB 


Pointer to PSBName for 
scheduling call 


Pointer to checkpoint ID 
for checkpoint call 


Pointer to PCB index 
number 


Pointer to segment name 


1& 


Address of the segment I/O 


area 


Pointer to the length of 
the I/O area 


Pointer to the length of 
the variable destination 
parent 


Pointer to key feedback 
area | 


Pointer to key feedback 
area length 


"k" the next four fields 
are repeated for each 
qualification section of 
Boolean SSA 


Pointer to the operators 


HLPIOPER actually points to an area that contains 
a two-byte relational operator field and a one-byte 


boolean operator field 
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Offsets Field/Flag Flag Code | 
(Dec) (Hex) Length Name (Bit) Description = 
HLPIOPRL ele? Jer be "2" Relational operator ‘ey 
| length, same length as as 
SSARO field in DSECT 
DLZSSA 
HLPIOPBL Pinte, Gada "1" Boolean operator 
length, same length as 
SSABO field in DSECT 
DLZSSA 
36 (24) 4 HLPIFLDN Pointer to field name 
40 (28) 4 HLPIFLDV Pointer to field value 
44 (2C) 4 HLPILFLD - 8 Pointer to length of the 
field value 
HLPIQSLN rer eer "*-HLPIOS" length of 
repeating section re 
Cross Reference | © Nea 
Hex Hex 
Name Offset Value 
DLZHLPIL 0 
HLPIARGO 6) 
HLPICKID 8 
HLPIDIBP 4 
_HLPIFLDN 24 
HLPIFLDV 28 =_ 
HLPIKFBA Ke | ff 
HLPIKFBL 20 4 
HLPILFLD 2C | XY 
HLPILIOA 14 
HLPIOFST 18 . 
HLPIOPBL 20 01 
HLPIOPER 20 
HLPIOPRL 20 02 
HLPIPCBI 8 
HLPIPSBN 8 
HLPIQS 20 20 
HLPIOSLN 2c 10 _ 
HLPISEGN e fo 
ie j 
HLPISIOA 10 WY 
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IDBD - DBD Directory 
( : DSECT Name: DLZIDBD 


The DLZIDBD macro maps the control blocks which are used to pass information about data base structure from 
the DBD generation step (DBDGEN) to the block builder step (ACBGEN). 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DBDDSECT 
0 (0) 1 AMODLEV DL/I Release level during DBDGEN 
X'OO'=Release 1.0 
X'11'=Release 1.1 and later 
O (OQ) 4 APREFIX Address of prefix 
4 (4) 4 ASEGTAB Address of SEGTAB 
( = 8 (8) 4 AFLDTAB Address of FLDTAB 
cae 12 (C) 4 ALCHILD Address of LCHILD 
16 (10) 4 AEXTDBD Address of EXTDBD 
20 (14) 4 ASORTAB Address of source segment table 
24 (18) 4 ARMVTAB Address of direct 
conversion CSECT 
28 (1C) 4 AINDXTAB Address of index secondary 
oe list table 
( 32 (20) 4 ADSGCB Address of DSG control 
blocks (ACB or DTF) 
PREFIX 
0 (0) 0 PREFIX 
PREBGIN wae 
O (0) 8 PREDBDNM DBD name 
( 8 (8) 2 PRENOLEV Number of levels 
: 10 (A) 2 PRENOSEG Number of segments 
12 (C) 1 PREACCES Access method see below 
for values 
13 (D) 1 PRENODSG Number of data sets 
14 (E) 2 PRENODBD Number of external 
data bases referenced 
16 (10) 8 PRERNDM Randomizing algorithm name 
24 (18) 2 PRENOLCH Number of logical children 
26 (1A) 2 PREAP Number of root anchor points 
28 (1C) 4 DBDPFRBN Maximum relative block 
number (HD) 
32 (20) 4 DBDPFBYT Maximum number bytes in 


prime area (HD) 
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*"PREACCES’ values -- type of organization 


Offsets 


(Dec) (Hex) Length 


Field/Flag Flag Code 





Name (Bit) 
PREIMSC 11... 
PREACCCD .... 1111 
PRESHIS Spode: weenie 
PREISAM] .... ..1. 

ae 
PRESSAM eae oe 
PREHSAM pee: allel 
PREHD uvieet ITS 
PREHI pies. GI 
PRENDEX estat abe 


DMAN entry (one per DSG; same as DMAN DSECT) 


36 = (24) 
44  (2C) 
48 (30) 
49 (31) 
50 (32) 
52 (34) 
54 (36) 
56 = (38) 
58 (3A) 
60 (3C) 
62  (3E) 
64 (40) 
66 (42) 
68 (44) 


DMAN DSECT 


0 (0) 
0 (0) 
8 (8) 
12 (G) 


8 


4 


PREDD 1 
PREDEV1 
PREID 
PRENSGA 


PREDELTA 


PRELSL 
PRESSL 
PRELKL 
PRESKL 
PRELRECL 
PREBLKSZ 
PREOLREC 
PREOBLKS 


PREDD2 


DMAN 
DMANBGIN 


DMNDD 1 


DMNDEV 1 


DMNID 


5-82, DL/IDOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 


Description 


"X'80'" IMS compatibility 
required 


se eae 6) satias Or eauaeaeion Pied 
"1" simple HISAM 

"2" HISAM case I 

"3" Reserved 

"A" Simple HSAM 

"5" HSAM 

"6" HDAM 

"7"  HIDAM data 


"8" HIDAM index 


Input file name 

Device type 

DMAN number 

No of segments in this dataset 


Number of free space scan 
cylinders 


Longest 

Shortest segment 

Longest 

Shortest key this data set 
Logical record length 
Block size 

ESDS logical record length 
ESDS block size 


Output file name 


Wye tt 
Input file name 
Device type 


DMAN number 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length ~ Name (Bit) 

Be (D) 1 DMNNSGA 

14 (E) 2 DMNDELTA 

16 (10) 2 DMNLSL 

18 (12) 2 DMNSSL 

20 (14) 2 DMNLKL 

22 (16) 2 DMNSKL 

24 (18) Z DMNLRECL 

26 (1A) 2 DMNBLKSZ 

28 (1C) Z DMNOLREC 

30 (1E) 2 DMNOBLKS 

32 (20) 8 DMNDD2 
DMANEND seals: legals 
DMANSZE St dig wher 

SEGTAB 


Note that this DSECT can be used for both REL 1.0 and 1.1 


0 (0) 0 SEGTAB 
SEGBGIN 
0 (0) 1 _ SEGDSNO 
1 (1) 1 SEGPHYCD 
2 (2) 1 SEGPARPC 
3 (3) 1 SEGLEVEL 
4 (4) 1 SEGNOLCH 
5 (5) 1 SEGNOFLD 
6 (6) 2 SEGLENG 


Max length for variable length segs 


Max length for compressible segs 
8 (8) 4. SEGFREQ 


12 (C) 8 SEGSEGNM 





Description 


Number of segments in this 
data. Set 


Number of free space scan 
cycles 


Longest 

Shortest segment 

Longest 

Shortest key this data set 
Logical record length 
Block size 

ESDS logical record length 
ESDS block size 

Output file name 

Wye! 


"DMANEND-DMANBGIN" 


Wye 
DMAN number 

Segment code 

Parent segment code 

Level 

Number of logical children 
eer of fields 


Data length-segment length 
for fixed length segments 


Frequency X 100 


Segment name 
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Offsets © | Field/Flag Flag Code | 
(Dec) (Hex) Length Name (Bit) Description 

20 (14) 1 SEGFLG1 Pointer description 
CTR Ls ; "X'80'" CTR 
PTF Py eer er "X'4O'" PT FWD 
PTB ee 5 "X'20'" PT BKD 
PP | ee 1x! TO" (PP 
LTF Vea, -“X'OS'’ LP BwD 
LTB a ie "X'O4'" LT BKD 
LP elta "x'O2*" LP 
NOTWIN 1 "X'O1'" 7 NOTWIN 

2 1 (15) 1 SEGFLG2, Update rules ae 
PHYISRT ie "x'80'" Physical insert ee? 
VIRISRT ois : "X'40'" Virtual insert 
LOGISRT fie "X'CO'" Logical insert 
PHYDLET cere lee "X'20'" Physical delete 
VIRDLET .1 "X'10'" Virtual delete 
LOGDLET gl "X'30'" Logical delete ~ Pa 
PHYRPL ‘ Tg "X'O8'" Physical replace a 
VIRRPL tchans "X'O4'" Virtual replace 
LOGRPL i ae ee "X'OC'" Logical replace 
ISRTF ee fetes "X'O2'" Insert first 
ISRTL g .teeid "X'O1'" Insert last 
ISRTH ran "X'O3'" Insert here 

22 (16) 1 SEGFLG3 
SEGPRDT Wig Gio’, gerade "X'80'" Paired 
SEGRESB1 sles : "X'4O'" Reserved 
SEGRESB2 oy ar "X'20'" Reserved 
SEGTYP64 Suede "X'10'" Type 64 processing 

required 

SEGPCBT ee es Loe "X'O8'" Parent has PC 


backward to this segment 


SEGSPARE oeee 21717 "X'O7'" Number of spare 


pointers 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
23 (17) 1 SEGFLG4 Number of physical 
children 
24 (18) 4 SEGLCHLD Offset of first LCHILD 
28 (1C) 2 DBDSSN Number of source segments 
for segment 
30 (1E) 2 DBDSSOFF Offset to first source 
segment entry 
32 (20) 4 SEGFLDTB Offset of first field in 
FLDTAB 
36 (24) 2 DBDSPFSZ Prefix size 
38 (26) 2 SEGLENGV Minimum length or O for 
variable length segment 
( . SEGEND 10 es eae ee "*" End of Release 1.0 
— SEGTAB entry 
SEGSZE10 ee NGS, 3 ees "*-SEGBGIN" length of 


release 1.0 SEGTAB entry 


The following fields exist only in Rel 1.1 DBDs 


40 (28) 4 SEGPACRV Reserved 
44  - (2C) 1 SEGPACOP Segment compaction options 
ce 7 SEGCPRT eae Wace a "x'O8'" segment has 
| compress routine 
SEGTYPVL eUiyick, ae Mente "X'O4'" Segment. is 
variable length 
SEGPACKY eee! Wee ie "X'O2'" Key expand 
entry point is defined 
SEGPACIT PA, ere "X'O1'" Initialization 
entry point is defined 
ro ™ 45 (2D) 3 SEGPACRT Address of segment compact 
| table for compact route 
SEGEND 1 1 Bat Metovecs "*k" End of release 1.1 
SEGTAB entry 
SEGSZE1 1 recs A ee ere "*-SEGBGIN" length of 
release 1.1 entry 
FLDTAB 
O (0) O FLDTAB 
FLDBGIN vente wabriciueioe eer 
0 (0) 8 FLDNAME Name 
8 (8) 2 FLDSTART Start position offset 
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(Dec) (Hex) Length 


Offsets 
10 (A) 
117 (B) 
12 (C) 
20 (14) 
LCHILD 
O (0) 
0 (0) 
8 (8) 
8 (8) 


Field/Flag 


Name 
FLDFLAG 


LSTFLD 
KEYFLD 
FLDMSEQ 


FLDSPEC 


FLDX 
FLDP 
FLDC 


PEDEE 
FLDZ 


FLDLEN 
FLDSNAME 
FLDSEGTB 
FLDEND 


FLDSZE 


LCHILD 
LCHBGIN 
LCHSEGNM 
LCHCODE 


TSGTAB 


LCGHEDBD 
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Flag Code 
(Bit) 





om el 


al | 
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Description 
Flags 


"X'8O0'" Last field fora 
SEGTAB 


"X'40'" This field is SEQ 
Field 


"X'20'" SEQ field is 


‘-NON-UNIQUE 


"X'10'" Special field 


"X'O1'" Field is 
hexadecimal 


"X'O2'" Field is packed 
decimal 


"X'O3'" Field is 
character 


SYO0"" Bield 1s fléating 


point 


"X'O7'" Field is zoned 
decimal 


Length 

Source field name 
SEGTAB. entry offset 
Hye tt 


"FLDEND-FLDBGIN" 


ge tt 


Name 


"128" LCHEDBD address is a 
SEGTAB entry 


logical insert rule - 
last (same as ISRTL) 


logical insert rule - 


first (same as ISRTF) 


logical insert rule - 
here (same as ISRTH) 


Offset to EXTDBD or SEGTAB 
entry 


- 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
( | 12 (C) 1 LCHF LAG | 
aaa LSTLCH Wsaahege . “enmrtics "X'80'" last entry for SEGTAB 
LCHPRI Silvan. Beeps "X'4O'" primary HIDAM 
index definition (BB only) 
LCHIEN Pere eee re "X'20'" indexing segment 
definition 
LCHTKPH eee ars "X'10'" LPCK iS carried 
physically 
LCHLP ee ae ere "x06" -entry 2s: LP 
definition 
LCHNDX Sea een "xXx'O4'" andexed segment 
definition 
sas LCHLCF seceaey aga ne "X'O2'" Single logical 
( . child forward pointer used 
= LCHLCB see eee | "*%¥'O1'". Double logical 


child forward/backward pointer 


If bit 2 of LCHFLAG is set; 
bits 5-7 have the following meaning: 


Bit 5 Blank values are not indexed. 
Bit 6 Zero values are not indexed. 
Bit 7 LCHIBYTE values are not indexed. 


( i (D) 1 LCHIBYTE Non-index value 
14 (E) 2 LCHPRDSG Offset to paired segment 
16 (10) 8 LCHFLDNM Indexed field name 
LCHEND Se U -le Ga ey 
LCHSZE 8 elk Ciliates "LCHEND-LCHBGIN" 
— EXTDBD 
(_ 0 (0) 0 EXTDBD 
0 (0) 8 EXTDBNM 
8 (8) 4 EXTRSVD 
EXDBDSZ ae: Willecs "%*-EXTDBD" 
SORTAB 
O (0) 0 DBDSORTB 
O (0) 8 DBDSORNM Source segment name 
8 (8) 1 -DBDSSFLG Source flag 
DBDSSK Wwe ewe "X'80'" Data option=key 
- DBDSSP de Wee. rerevaees "X'40'" =path 
DBDSSD gchar. boxe te "X'20'" =data 
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Offsets Field/Flag Flag Code | | 
(Dec) (Hex) Length Name (Bit) | Description 
——— —— or | } see 
8 (8) 4 DBDSSDBO Offset to database entry | f 
qo 
DBDSORSZ i Gomes ae "*-—DBDSORTB" 
INDEXTAB 
O (0) 0 INDXTAB 
0 (0) 1 INDXFLAG Index table flag byte 
1 (1) 3 | Remaining fields are as 
defined 
4 (4) 4 (3) For DMB secondary lists 
INDXTBSZ sreiuel Wie gS ob. "*k-TNDXTAB" size of one 
entry 
o™ 
\ ; 
Na 
{ > 
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Name 


ADSGCB 
AEXTDBD 
AFLDTAB 
AINDXTAB 
ALCHILD 
AMODLEV 
APREF IX 
ARMVTAB 
ASEGTAB 
ASORTAB 
DBDDSECT 
DBDPFBYT 
DBDPFRBN 
DBDSORNM 
DBDSORSZ 
DBDSORTB 


. DBDSPFSZ 


DBDSSD 
DBDSSDBO 
DBDSSFLG 
DBDSSK 
DBDSSN 
DBDSSOFF 
DBDSSP 
DMAN 
DMANBGIN 
DMANEND 
DMANSZE 
DMNBLKSZ 
DMNDD 1 
DMNDD2 
DMNDELTA 
DMNDEV 1 
DMNID 
DMNLKL 


DMNLRECL 


DMNLSL 
DMNNSGA 
DMNOBLKS 
DMNOLREC 
DMNSKL 
DMNSSL 
EXDBDSZ 
EXTDBD 
EXTDBNM 
EXTRSVD 
FLDBGIN 
FLDC 
FLDEND 
FLDFLAG 


Cross Reference 


Hex 


Offset 


20 
10 

8 
1 


NO NM - = NO 
CoOO0COOHWaAWDDAANOFOMAO 


os 


20 
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Hex 
Value 


OC 
20 
80 


40 
00 


28 


OC 


OO 


18 


Name 


FLDFP 
FLDLEN 
FLDMSEQ 
FLDNAME 
FLDP 
FLDSEGTB 
FLDSNAME 
FLDSPEC 
FLDSTART 
FLDSZE 
FLDTAB 
FLDX 
FLDZ 
INDXFLAG 
INDXTAB 
INDXTBSZ 
ISRTF 
ISRTL 
KEYFLD 
LCHBGIN 
LCHCODE 
LCHEDBD 
LCHEND 
LCHFLAG 
LCHFLDNM 
LCHIBYTE 
LCHIEN 
PCHELD 
LCHLCB 
LCHECF 
LCHLP 


_ LCHNDX 


LCHPRDSG 
LCHPRI 
LCHSEGNM 
LCHSZE 
LCHTKPH 
LSTFLD 
LSTLCH 
NOTWIN 
PREACCCD 
PREACCES 
PREAP 
PREBGIN 
PREBLKSZ 
PREDBDNM 
PREDD 1 
PREDD2 
PREDELTA 
PREDEV 1 


Hex 


Offset 


_— 


— — _— 


—_— 


—_ 


APANADVOAWMAANDAOCAVPOCAVAMOPYPUNFOOPPOLOYTOHQEFPOYPrT LY 


—> WB — 
OP CoO: 


Hex 


Value 


04 
20 
O02 


10 
18 


01 
07 


so aabateieeeadenennenadaeadnaamnmmamemnanEEEemenEEEEeremeememEeEEm 
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Cross Reference 


Name 


PREFIX 
PREHD 
PREHI 
PREHSAM 
PREID 
PREIMSC 
PREISAM1 
PRELKL 
PRELRECL 
PRELSL 
PRENDEX 
PRENODBD 
PRENODSG 
PRENOLCH 
PRENOLEV 
PRENOSEG 
PRENSGA 
PREOBLKS 
PREOLREC 
PRERNDM 
PRESHIS 
PRESKL 
PRESSAM 
PRESSL 
SEGBGIN 
SEGCPRT 
SEGDSNO 
SEGEND10 
SEGEND11 
SEGFLDTB 
SEGFLG1 
SEGFLG2 
SEGFLG3 
SEGFLG4 
SEGFREQ 
SEGLCHLD 
SEGLENG 
SEGLENGV 
SEGLEVEL 
SEGNOFLD 
SEGNOLCH 
SEGPACIT 
SEGPACKY 
SEGPACOP 
SEGPACRT 
SEGPACRV 
SEGPARPC 
SEGPCBT 
SEGPHYCD 
SEGPRDT 


Hex 


Offset 


0 
20 
20 


Hex 


Value 


08 


01 


O04 


00 
08 


28 
30 


01 
O02 


08 


80 


Name 


SEGRESB1 
SEGRESB2 
SEGSEGNM 
SEGSPARE 
SEGSZE10 
SEGSZE11 
SEGTAB 
SEGTYPVL 
SEGTYP64 
TSGTAB 
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Hex 


Offset 


16 
16 

C 
16 
26 
2D 

0 
2c 
16 

8 


Hex 
Value 


40 
20 


07 
28 
30 


O04 
10 
80 
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JCB - Job Control Block 


DSECT Name: JCB 





The JCB is described as part of the general structure and description of the program specification block (PSB). 


Offsets 
(Dec) (Hex) Length 
0 (0) 0 
0 (O) 4 
4 (4) 4 
8 (8) 4 
_ 12 (C) 4 
( : 16 (10) 14 
DL/I Function Codes 





Field/Flag Flag Code 
Name (Bit) Description 

JCB 

JCBLEVTB Address of level table 

JCBLEVND Address of end of level 
table+t+1 

JCBSDB1 Address of first SDB entry 
(root's) 

JCBSDBND Address of end of SDB's+t+1 

JCBTRACE Prior 7 functions followed 


by return code 


The following calls require a PCB and will be traced in JCBTRACE. 


Any calls not requiring a PCB is not put in the trace table. However, 
the function code appears in JCBPREVF or JCBPREVR. ay 
Name Code (Hex) Meaning 

_ FUNCGU 07 'GU' Get Unique 

( FUNCGHU 01 'GHU' Get Hold Unique 

kage FUNCGN 03 'GN' Get Next 
FUNCGHN 03 'GHN' Get Hold Next 
FUNCGNP O4 'GNP' Get Next Within Parent 
FUNCGHNP 04 'GHNP' Get Hold Next Within Parent 
FUNCDRTY 20 Delete/Replace | 
FUNCREPL Z| "REPL' Replace 
FUNCDLET 22 'DLET' Delete 
FUNCISTY 40 'ISRT' Insert 
FUNCISRT 41 Insert 
FUNCASRT 42 DL/I Utility Insert 





So 
90 


FUNCCHKP 
FUNCPCBM 


The following codes do not require a 


FUNCUNLD AO 
FUNCGSCD Al 
FUNCTERM A3 


DL/I Function Types 


FUNCGNTY 80 
-FUNCGUTY 40 
FUNCPATY 20 
FUNCHOTY 08 
30 (1B) 1 
31 (1F) 1 





JCBPREVF 


JCBPREVR 


The following codes must have a PCB 


"CHKP' Checkpoint 
PCB Call for MPS 


PCB 


'UNLD' Unload Call 
'GSCD' Get SCD Call 
'TERM' Termination Call 


Get Next Type 
Get Unique Type 
Parent Type 
Hold Type 


Prior function 


Prior return code (right 


byte) 
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32 (20) 4 JCBLEV1C 
36 (24) 2 JCBSIZE 
38 (26) 2 JCBMKYL 
40 (28) 4 JCBRES 1 


The following breakdown of JCBRES1 identifies its use 
by the CALL Analyzer 


40 ~~ (28) 1 JCBRES11 

| JCBNSSA is 
JCBQSSA sates 
JCBUQSSA ...1. 


JCBMSSA ieee th 


JCBMUSSA.... 1... 
JCBQAUQ erry tee 


JCBLSSAQ aerate elec es 


JCBRES 12 


JCBCCALL iS o8h. a Vent 
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Address of ist level table 
entry in call; address of 
lowest level table entry 
successfully processed by 
retrieve; if hi-order byte 
= X'80'" open error 

PCB + JCB size 


Maximum length of key 
feedback area 


Action-modules work area 


First flag byte 

"x'80'" No SSAs 

“ae OS Qualified SSAs 
"xX'20'" Unqualified SSAs 
"X'10'" Multiple SSAs 


"X'O08'" Multiple 
unqualified SSAs 


—"X'O04'" Qualified SSA 


after an ungualified SSA 


"X'O2'" Last SSA qualified 


Second flag byte 


"xX'O4'" Call has C command 
code 


a 


A 
Ya. J. 
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Offsets Field/Flag Flag Code 











(Dec) (Hex) Length Name (Bit) Description 
C JCBTCALL Bs de cite > Cae ede "X'O2'" Call has T command 
~ code 
JCBLV1C ie. eee "X¥'O1'" JCBLEVLC has been 
filled on this call 
42 (2A) 1 JCBRES 13 Third flag byte 
JCBALOD Vecée, ratde "X'80'" Any level 
qualified on data 
JCBALD seclharces . vecdene se "X'4O'" Any level had D 
command code 
J CBOSAD es mere "X'20'" Qualified SSA 
follows D command code 
43 (2B) 1 JCBRES14 Fourth flag byte 
( . JCBFNSL 1... ....  "X'80'" Field is not in 
és sub list 
JCBOFLP eles omac- “X*40*" Oualiritication 
field is in logical parent 
JCBTSKF aches smetat "X'O1'" This set has a key 
£veid 
44 (2C) 4 JCBRES2 - Action-modules work area 
48 (30) 4 JCBRES3 Action-modules work area 
Cc 52 (34) 4 JCBRES4 Action-modules work area 
56 (38) 4 JCBRES5 Action-modules work area 
60 (Se) | JCBCode Inter-module 
JCBTARPR WF Ged et. aie "X'80'" DLZPOST update 
twin pointers only 
JCBDEFDL a a ee "X'4O'" Re-insert of a 
deleted segment 
JCBRETDL Se. Seed "X'20'" (Not used in DL/I 
DOS/VS) 
JCBTAREX here, peaddales "X'10'" Re-position for GN 
(no SSA) with multiple 
positioning 
JCBMLPOS eceee:  WWaseek "X'O8'" Retrieve keeping 
multiple positions 
JCBSGRET ares lek "xX'04'" Used in 
positioning after not 
found 
JCBRTIST srecinel Teaet ne "X'O2'" Retrieve 
positioning for insert 
J CBRDREQ ei aaeeee dear ard "X'O1'" DLZSKPG start at 
next occurence of segment 
61 (3D) 1 JCBORGN | Open switch and composite 
7 organization of all SDBs 
in the JCB 
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Offsets 
(Dec) (Hex) Length Name | (Bit) 


65 


66 


67 


68 


(43) 


(44) 


Field/Flag Flag Code 


JCBOPEN: .. © Tete 
JCBORGRI eee emt 
J CBORGHD fcoliss 
senoRGn Heel 
JCBORGH2 be ectais | Waites 
J CBORGSH Aree a) er 
JCBORGH 1 fee ae 
JCBORGHS Siig: casa, hy 
JCBORGSS ear wel 
1 J CBRWKF 


1 JCBPRESF 


1 JCBLVT 


JCBDOPI re ae ee 

JCBALLEX Svea: ues 

JCBNMFDB a ee 

JCBFLS ae Te 
1 JCBLVC 


1 JCBPC 


1° JCBPOP 


4 JCBSTOR1 
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Description 


"X'80'" Open done for all 
data sets in the JCB 


"X'44'"Organization is 
root of index 


"X'20'" Organization is 


HDAM 

"X%'10'" Organization is 
HIDAM 

"xX'O8'" (Not used in DL/I 
DOS/VS) 

"X'O5'" Organization is 


SIMPLE HISAM 


"X'O4'" Organization is 


HISAM . 

"X'O2'" Organization is 
HSAM 

"X'O1'" Organization is 


SIMPLE HSAM 


Retrieve's 
working-function 


Present coded function 
(see function codes DSECT 
for contents) 


Switches used in accessing 
segments via DLZSKPG 
routine (see routine 
prolog for details) 


"X'O8'" program isolation 
is to be done for 
associated PCB 


"x'Q4'" All sensitive 
segments have exclusive 
intent 


"X'O2'" Field name found 
in FDB 


"X'O1'" At least one 
segment has field level 
sensitivity (used by call 
analyzer) 


Level of segment being 
searched for by retrieve 


Physical code of segment 
being searched for by 
retrieve 


Parent level for within 
parent calls 


Insert's use across I/O or 
calls . 
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Offsets Field/Elag .F lag: Code 
- (Dec) (Hex) Length Name (Bit) Description 
( 72 (48) 4 JCBSTOR2 Insert's use across I/O or 
ssi calls 
76 (4C) 4 JCBSTOR3 Insert's use across I/O or 
calls 
80 (50) 4 JCBSTOR4 Address of last segment 
read referenced by label 
BEGBUF in retrieve 
84 (54) 4 JCBSTOR5 Current segment RBA 
referenced by label CURTTR 
in retrieve 
88 (58) 4 JCBSTOR6 Retrieve's use across I/O 
or calls 
92 (5C¢) 4 JCBSTOR7 Contains switches for 
ond. position check phase 
( i referenced by label KEEPIT 
— in retrieve 
96 (60) 4 JCBSTOR8& Work area for retrieve 
100 (64) 4 JCBWKRO Action-modules work area 
104 (68) 4 JCBWKR1 Action-modules work area 
108 (6C) 4 JCBWKR2 Action-modules work area 
112 (70) 4 JCBWKR3 Action-modules work area 
( | 116 (74) 4 JCBWKR4 Action-modules work area 
120 (78) 4 JCBWKR5 Action-modules work area 
124 CTC) 4 JCBWKR6 Action-modules work area 
128 (80) 4 JCBWKR7 Action-modules work area 
T32 (84) 4 JCBWKR8& Action-modules work area 
136 (88) 4 JCBWKRY Action-modules work area 
( 140 (8C) 4 JCBWKR10 Action-modules work area 
144 (90) 4 JCBWKR1 1 Action-modules work area 
148 (94) 4 JCBWKR12 
148 (94) 1 JCBWK12A Program isolation switches 
(retrieve only) 

JCBNODEQ "X'80'" No DEQ processing, 
all level table entries 
empty after CHKP, TERM, 
etc. 

JCBRAP "X'4O'" Root anchor point 
enqueued (HDAM only) 

J CBPCHK "X'20'" DLZPCHK calling 
DLZPOST enqueue not required 

JCBPPENQ "X'10'" DLZKDTL enqueued on 





physical parent searching 
on data field 
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Offsets Field/Flag Flag Code 7 
(Dec) (Hex) Length Name (Bit) | Description 
JCBNTFD Sees, Views "X'O8'" DLZPCHK processing 
not found condition 
JCBSKPG gia Go ed eog "X'O4'" DLZDEOQ should 
release all outstanding 
enqueues 
JCBDLET See, Bel: "X¥'02'" ENO/DEQ required 
in DLZPCHK due to delete 
JCBISRT gsc. tees! "X¥'O1'" Indicates DLZHIDA 
or DLZHDAM is accessing 
destination parent during 
a logical child insert 
149 (95) 3 JCBWK12B Action-modules work area 
152 (98) 4 JCBWKR13 Action-modules work area 
156 (9C) 4 JCBWKR14 Action-modules work area a 
; ( } 
160 (AO) 4 JCBWKR15 Action-modules work area ed 


End of JCB prefix - beginning of primary DSG 


JCBDSG : ae eee ae "*" Start of each DSG 
| section of JCB . 


164 (A4) 4 JCBDCBA Address of the ACB 
extension for this 
data set (KSDS ACB 
extension if HISAM) 





168 (A8) 2 J CBDMBNO DMB number for this DSG 
170 ~~ (AA) 1 JCBDCBNO ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 
171 (AB) 1 JCBINDA JCB indicators 
JCBDSOLS Ak, Gores © Meeks "X'80'" This is last DSG 
in JCB 
JCBDSORI Sic ee es "X'44'" Data set group is a 
root in index j 
. Y 
JCBDSOHD ..1. .... '"X'20'" Data set group is — 
HDAM 
JCBDSOHI rn ae eee "xX'10'" Data set group is 
- HIDAM 
JCBDSOH2 gis. Nees "x'O8'" (Not used in DL/I 
: DOS/VS) 
JCBDSOH1 eee SS "X'O4'" Data set group is 


HISAM or simple HISAM 


JCBDSOHS .... ..1. "X'O2'" Data set group is 
| HSAM or Simple HSAM 


JCBDSOUP eee | "X'O1'" Data set group is 
' SHSAM or SHISAM 
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Offsets 
(Dec) (Hex) Length 
172 (AC) 4 
172 (AC) 4 
172 (AC) 4 
176 (BO) ye 
178 (B2) 1 
i pe, (B3) 1 


Field/Flag 


Name 
JCBIRECA 
JCBHSADD 


JCBTTR 


JCBINDB 


JCBSETLR 


JCBGETR 


JCBBATIS 


JCBNATIS 


JCBSETL2 


JCBGETGT 


JCBKEYSR. 


JCBSTLIS 


JCBINDC 


SCBBLDEL 
JCBHDULD 
JCBCONST 
JCBPADKY 
JCBDUPS 

JCBSPOST 


JCBSWAP 


Flag Code 





(Bit) 


eee 


Description 


HSAM I/O area after open 


HSAM block size 
JCB indicators 


"X'80'" (Not used in DL/I 


DOS/VS) 
"X'4O'" (Not used in DL/I 
DOS/VS) 
"X'20'" (Not used in DL/I 
DOS/VS) 
"X'10'" (Not used in DL/I 
DOS/VS) 
"xX'OS'" (Not used in DL/I 
DOS/VS) 
"X'O4'" (Not used in DL/I 
DOS/VS) 
"X'O2'" (Not used in DL/I 
DOS/VS) 


"xX'O1'" (Not used in DL/I 
DOS/VS) 


JCB indicators 


"X'80'" This DSG belongs 
to delete/replace 


"X'4O'" HD unload is 
running 


"x'20'" Index data set © 
contains constant 


"X'10'" Search argument 
not equal to key length 


"x'O8'" Non-unigue 
secondary index keys 


"X'O4'" (Not used in DL/I 
DOS/VS) | 


"X'O2'" (Not used in DL/I 
DOS/VS) 


"X'O1'" HSAM wrong length 
record 
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(Dec) (Hex) Length 


Offsets 
180 (B4) 
181 (B5) 
184 (B8) 
188 (BC) 


1 


1 


4 


4 


Field/Flag 


Name 


JCBINDG 
JCBPREM 
JCBDATX 
JCBKEYX 
JCBXP 

JCBVL 

JCBRETD 


J CBCOMMD 


JCBRTNER 


(3) 
JCBNOSAM 
JCBLROOT 
JCBDSEND 


JCBPRLEN 


JCBDSGLN 
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Flag Code 
(Bit) 


Licensed Material—Property of IBM 


Description 


JCB indicators retrieve 
variable length flags 


"X'80'" Segment prefix has 
been moved to work area 


"X'4O'" Segment has been 
completely expanded 


"X'20'" (Not used in DL/I 
DOS/VS) 


"X'10'" Force complete 
segment expansion 


"X'O8'" The variable 
length routine has been 
entered for segment 
"X'O4'" Data return call | 


"xX'O2'" Path return call 


"X'O1'" (Not used in DL/I 
DOS/VS) 


Reserved 

Retrieve's HSAM ID 
RBA of current root 
Nyt 


"JCBDSG-JCB" length of JCB 
prefix 


"JCBDSEND-JCBDSG" length 
of each DSG section of JCB 


e 














my 
} ay 
lita” 


~ 


J 


Name 


JCB 
JCBALD 
JCBALLEX 
JCBALQOD 
JCBBATIS 
JCBBLDEL 
JCBCCALL 
JCBCode 
J CBCOMMD 
JCBCONST 
JCBDATX 
JCBDCBA 
JCBDCBNO 
JCBDEFDL 
JCBDLET 
JCBDMBNO 
JCBDOPI 
JCBDSEND 
JCBDSG 
JCBDSGLN 
JCBDSOHD 
JCBDSOHI 
JCBDSOHS 
JICBDSOH1 
JCBDSOH2 
JCBDSOLS 
JCBDSORI 
JCBDSOUP 
JCBDUPS 
JCBFLS 
JCBFNSL 
JCBGETGT 
JCBGETR 
JCBHDULD 
JCBHSADD 
JCBINDA 
JCBINDB 
JCBINDC 
JCBINDG 
JCBIRECA 
JCBISRT 
JCBKEYSR 
JCBKEYX 
JCBLEVND 
JCBLEVTB 
JCBLEV1C 
JCBLROOT 
JCBLSSAQ 
JCBLVC 
JCBLVT 


Cross Reference 


Hex 


Offset 


2A 
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Hex 
Value 


01 


20 


O02 


Name 


JCBLV1C 
JCBMKYL 
JCBMLPOS 
JCBMSSA 
JCBMUSSA 
J CBNMFDB 
J CBNODEQ 
JCBNOSAM 
JCBNSSA 
JCBNTFD 
JCBNXTIS 
JCBOPEN 
JCBORGHD 
JCBORGHI 
JCBORGHS 
JCBORGH1 
JCBORGH2 
JCBORGN 
JCBORGRI 
JCBORGSH 
JCBORGSS 
JCBPADKY 
JCBPC 
JCBPCHK 
JCBPOP 
JCBPPENQ 
JCBPREM 
JCBPRESF 
JCBPREVF 
JCBPREVR 
JCBPRLEN 
JCBQAUQ 
JCBOFLP 
JCBOSAD 
JCBOSSA 
JCBRAP 
JCBRDREQ 
JCBRES 1 
JCBRES11 
JCBRES 12 
JCBRES 13 
JCBRES14 
JCBRES2 
JCBRES3 
JCBRES4 
JCBRES5 
JCBRETD 
JCBRETDL 
JCBRTIST 
JCBRTNER 


Hex 


Offset 


Hex 
Value 


01 
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Cross Reference 
Hex 
Name Offset 
JCBRWKF 3E 
JCBSDBND Cc 
JCBSDB1 8 
JCBSETLR B2 
JCBSETL2 B2 
JCBSGRET 3C 
JCBSIZE 24 
JCBSKPG 94 
JCBSPOST B3 
JCBSTLIS B2 
JCBSTOR1 44 
JCBSTOR2 48 
JCBSTOR3 4C 
JCBSTOR4 50 
JCBSTOR5 54 
JCBSTOR6 58 
JCBSTOR7 5C 
JCBSTOR8 60 
JCBSWAP B3 
J CBTAREX 3C 
JCBTARPR 3C 
 JCBTCALL 29 
JCBTRACE 10 
JCBTSKF 2B 
JCBTTR AC 
JCBUQOSSA 28 
JCBVL B4 
J CBWKRO 64 
JCBWKR1 68 
JCBWKR10 8C 
JCBWKR1 1 90 
JCBWKR12 94 
JCBWKR13 98 
JCBWKR14 9C 
JCBWKR15 AO 
JCBWKR2 6C 
JCBWKR3 70 
JCBWKR4 74 
JCBWKR5 78 
OJCBWKR6 | 7C 
JCBWKR7 80 
JCBWKR8 84 
JCBWKRY 88 
JCBWK12A 94 
JCBWK12B 95 
JCBXP B4 


Hex 


Value 


80 


O04 


O04 


01 


10 
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LEV - Level Table Entry 
DSECT Name: LEV 


The level table entry is described as part of the general structure and description of the program specification block 
(PSB). 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 LEV 
0 (0) 1 LEVLEV Level number 
1 eile 1 LEVPC Current physical segment 
code 
Note: 


This portion of the level table, once set by 
RETRIEVE/INSERT is never cleared to zeros, only 
changed as needed. 


2 (2) 2 LEVSEGOF Segment's physical code 
offset from start of 
record (relative offset to 
segment from start of 


buffer) 
4 (4) 4 LEVTTR Relative byte address 
8 (8) 4 LEVSDB SDB entry address for 


current segment physical 
code in this entry 


12 CG) 1 LEVF 1 Flags 


LEVDLET VG oy iden "X'80'" Segment at this 
level newly deleted 


LEVEMPTY piliece:. ae eats "X'4O0'" This level table 
: entry is empty 


LEVHELD Sue Wine cadeiese "X'20'" Segment at this 
level in hold status 


LEVHIER Sctitacd, ese ens "X'10'" Segment at this 
level in hierarchic path 
(HISAM only) 


LEVDATA ee ae ee "X'O8'" Segment at this 
level moved to user 

LEVPLAST beans, eae "X'O4'" Segment is last of 
type for parent 

LEVPFRST Sm ees btm lhe "X'O2'" Segment is first 
of type for parent 

LEVLAST Soe (asata'| "X'O1'" This is last level 
table for PCB 

13 (D) 1 LEVF2 Flags 
LEVCDB Ted less). eae "x'80'" Verify enqueues 


required in data base of 
current segment 
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Offsets | Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
LEVNFPOS Gis cdodese "x'40'" Level has not ao 
found position for highe di y 
level - — 
LEVEOD sucht, Sepa "x'20'" EOD flag 
a | eisetots "X'10'" Reserved 
LEVCONT ae "eres "x'os'" The SSA at this 
level allows retrieve to 
obtain the next sequential 
segment 
LEVSTOP a ee eee "x'O4'" Used to determine 
the setting of LEVCONT by 
retrieve 
LEVLSW ee eae "X'O02'" Used by retrieve 
LEVNDB Suecases 6158-1 "X'O1'" Verify enqueues es, 
required in destination a : 
parents data base ae 
14 (E) 2 LEVUSEOF | Offset of segment in | 
user's I/O area (PSTUSER) 
Note: 
Fields LEVNUPC through LEVSSA is a description of 
the SSA set by the Call Analyzer for this entry. 
16 (10) 1 LEVNUPC Physical code of requested — wees 
segment A . 
17 (11) 1 LEVF3 Flags. 
LEVISRT i Barer ger er ee "X'80'" Inserting at this 
level (set by retrieve) 
LEVHOLD ee ee a "X'10'" At least one 
Boolean expression in 
range at this level 
LLEVPSUDO Bee dere "X'O8'" This is pseudo SSA oe 
filling gap i ‘\ 


LEVDATA1 bee: ie het "X'O4'" At least one 
member qualified on data 


LEVKEY 1 AiguBog 2a ie dca "X'O2'" Every Boolean set 
has at least one key field 


LEVNOCOV iateia vated "x'01'" No conversion to 
be done for this segment 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 
18 (12) 1 LEVF4 
LEVCOMMT 5 rere 
LEVCOMMC Sante. arog et 
LEVCOMMX Sora 
LEVCOMMV ewes Betis 
LEVCOMMU ee a ere 
19 (13) 1 LEVF5 
ts 
LEVCOMMP ma eae 
LEVCOMMF rs (e 
LEVCOMML ie tstb,  deuces ales 
LEVCOMMA Pa Sr 
LEVCOMMD ee en be 
LEVCOMMN ait te sdk at ice 
LEVCOMMQ  .... ...1 
20 (14) 1 LEVMEMBR 
1. cs 
ae 
elie 
Pa : 
LEVMEMAC ik: “New iaks 


eee ed Sel 


Description 
Flags 


"x'80'" T command code 
retrieve by direct address 


"X'4O'" C command code 
qualifier is concatenated key 


"x'20'" X command code 
index maintenance internal call 


"X'O2'" V command code 
maintain existing position 
at all levels 

"X'O1'" U command code 
maintain existing position 
this level 

Flags 


"X'80'" Reserved 


"xX'4o'" (Not used in DL/I 
DOS/VS) 


"X'20'" F command code get 
first of segment type 


"x'10'" L command code get 
last of segment type 


"xX'OS'" (Not used in DL/I 
DOS/VS) 


"xX'O4'" D command code 
transfer data this level 


"X'O2'" N command code do 
not replace this level 


"xX'O1'" QO command code 
enqueue on segment 


Switch for each member 
"X'80'" Reserved 

"X'4O'" Reserved 

"X'20'" Reserved 

"X'10'" Reserved 

"X'O8'" This member in use 
"X'O4'" Reserved 


"X'O2'" Reserved 


"xX'O1'" Reserved 
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Offsets 
(Dec) (Hex) Length 


21 


24 


28 


32 


(15) 


(18) 


(1C) 


(20) 


3 


4 


Field/Flag 
Name 


LEVFLD 


LEVNUSDB 
LEVSSA 


LEVEND 


LEVLEN 
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Flag Code 


(Bit) 


Reserved 


Description 
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Pointer to first FLD entry 
(SSA unqualified if 


zeroes) 


SSA's SDB address 


SSA's left parenthesis ( 
position address 


"sk" end of level table 


entry 


"LEVEND-LEVLEV" length of 
level table entry 7 


q * 
Se 
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Cross Reference 








i Hex Hex Hex Hex 
= Name Offset Value Name Offset Value 
LEV 0 LEVSTOP D O4 
LEVCDB D 80 LEVTTR 4 
LEVCOMMA 13 O08 LEVUSEOF E 
LEVCOMMC 12 40 
LEVCOMMD 13 04 
LEVCOMMF 13 20 
LEVCOMML TS 10 
LEVCOMMN 13 02 
LEVCOMMP 13 40 
LEVCOMMQ 13 01 
LEVCOMMT 12 80 
LEVCOMMU 12 01 
LEVCOMMV 12 02 
LEVCOMMX 12 20 
LEVCONT D 08 
LEVDATA e 08 
LEVDATA1 11 04 
LEVDLET C 80 
LEVEMPTY C 40 
LEVEND 20 24 
LEVEOD D 20 
LEVFLD 18 
LEVF 1 C 
LEVF2 D 
LEVF 3 11 
LEVF4 ‘2 
LEVF5 13 
LEVHELD C 20 
LEVHIER C 10 
re LEVHOLD 11 10 
( LEVISRT 11 80 
cial LEVKEY 1 11 O02 
LEVLAST C 01 
LEVLEN 20 24 
LEVLEV 0) 
LEVLSW D 02 
LEVMEMAC 14 08 
LEVMEMBR 14 
LEVNDB D 01 
LEVNFPOS D 40 
LEVNOCOV ia 01 
LEVNUPC 10 
LEVNUSDB PC 
LEVPC 1 
LEVPFRST C 02 
LEVPLAST C O04 
LEVPSUDO 11 08 
LEVSDB 8 
LEVSEGOF 2 
LEVSSA 20 
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MPC Partition Table Entry 


DSECT Name: MPCPT 





The Master Partition Controller (MPC) partition table is used to pass control information when processing batch 
partition application programs under multiple partition support (MPS). The MPC partition table resides in the 
transaction work area. There is one entry for every partition that is system generated. 








Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
@) (0) @) MPCPT 
O (0) 4 MPCDELIM MPCPT delimiter field 
0 (0) 1 MPCFLAG MPC activity flags 
MPCPACT Wai. erate "x'80'" Partition active 
indicator 
MPCERR Blietet. aonere "X'4O'" Error condition fo 
encountered on DL/I \ Z 
scheduling call, or BPC aes 
attach failure 
MPCTSTP Berle, Meade "X'20'" Stop transaction 
indicator 
MPCPSTP aeaeeile | apatuens "X'10"" Stop partition 
indicator 
MPCABWT bor aris Ade iene "X'O8'" Indicates that MPC 
should wait on the ABEND 
XECB in the event of a BPC 
ABEND 
"X'O4'" Not used 
"X'O2'" Not used 
"X'O1'" Not used 
1 (1) 1 MPCRC1 Error return code from 
TCAFCTR 
2 (2) 1 MPCRC2 Error return code from fe ‘ 
TCADLTR i 
3 (3) 1 MPCPID XECB identifier generated 
by DLZMPCOO 
4 (4) 4 MPCTCA Address of TCA 
8 (8) 4 MPCSXECB Address of stop partition 
XECB (DLZXCBO1) 
12 (C) 4 MPCAXECB Address of partition ABEND 
XECB (DLZXCBN3) 
16 (10) 2 Reserved 
18 (12) 2 MPCTSQE TSQ entry number 
20 (14) 1 MPCFLAG1 MPC activity flags 
MPCCNBPC NANG de. ees "X'80'" Cancel BPC at stop 


transaction when MPS batch 
partition is not active 
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Offsets 
(Dec) (Hex) Length 


SS 


24 (18) 4 





Field/Flag 
Name 


MPCNOVER ree 


MPCWNGCP Borie ie 


MPCCKP 


MPCABND 


MPCRST 


MPCPIDHX 


MPCRSTRC 


MPCRSTO 


MPCRST1 near 


MPCRST2 er 


MPCCPID 


MPCPTLN 


MPCNPTE 


Flag Code 
(Bit) 


11. 


Description 


"X'4O0'" Checkpoint ID 
verification not possible 
during restart 


"X'20'" Wrong checkpoint 
ID used on restart 


"X¥'10'" A combined 
checkpoint was issued 


"X'08'" Job abnormally 
ended if combined 
checkpoint was not issued, 
then reinitialize TSQ 
entry 


"X'O4'" MPS restart 
processing on for this job 


Partition identifier 


MPS restart return code 
for batch partition 


"O" MPS restart normal 
Function 


"1" CICS/VS journaling not 
active 


"2" Temporary storage 
processing not available 
or error 


Correct checkpoint ID to 
be used for restart 


"*-MPCPT" length of a 
partition table entry 


"12" number of partition 


table entries defined by 
DLZMPCOO 
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Cross Reference 





Hex Hex 
Name Offset Value 
MPCABND 14 08 
MPCABWT 0 08 
MPCAXECB Cc 
MPCCKP © 14 10 
MPCCNBPC 14 80 
MPCCPID 18 
MPCDELIM 0 
MPCERR. 0 40 
MPCFLAG 0 
MPCFLAG1 14 
MPCNOVER 14 40 
MPCNPTE 18 Oc 
MPCPACT 0 80 
MPCPID 3 
MPCPIDHX 15 
MPCPSTP 0 10 
MPCPT 0 ox 
MPCPTLN 18 1C a 
MPCRC1 1 ea 
MPCRC2 2 
MPCRST . 14 04 
MPCRSTRC 17 
MPCRSTO 17 00 
MPCRST1 17 01 
MPCRST2 17 02 
MPCSXECB 8 
MPCTCA 4 
MPCTSQE 12 
MPCTSTP 0 20 
MPCWNGCP 14 20 £ 
‘ \ : I -: 
fA As 
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MPC - Start Partition DLZXCBO02 


( ; DSECT Name: MPCSPART 
The MPCSPART maps the start partition XECB parameter list. 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 MPCSPART 
0 (0) 4 MPCXECBS DLZXCBO2 XECB 
4, (4) 4 MPCSPRO Address of start partition 
processing routine in 
DLZMPCOO 
8 (8) 4 MPCPTABE Address of next partition 
table entry to be used for 
batch partition start 
( Cross Reference 
Hex Hex 
Name Offset Value 
MPCPTABE 8 
MPCSPART 0 
MPCSPRO 4 
MPCXECBS O 
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PATH - Path Header Control Block 


DSECT Name: DLZPATH 
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This DSECT describes the fields for DL/I HLPI PATH header control block. 


Offsets Field/Flag 
(Dec) (Hex) Length Name 
0 (0) 0 DLZPATH 
0 (0) 4 
O (0) 4 PATHSSAP 
44 (4) 4 PATHPRCT 
8 (8) 1 PATHF lag 
PATHCALL 
9 (9) 1 PATHTOTN 
10 (A) 2 
PATHLEN 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZPATH O 
PATHCALL 8 80 
PATHF lag 8 
PATHLEN A OC 
PATHPRCT 4 
PATHSSAP O 
PATHTOTN 9 
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Flag Code 
(Bit) 





Neue 


Description 


Full word alignment 


Address of path SSA 
appendage 


Previous GET path call 
DL/I parameter count 


Flag byte 


"xX'80'" Previous call was 
a GET path call 


Number of calls on 
previous GET path call 


Reserved 


"*—-PATHSSAP" length of 
path header control block 





wih ioe 8 
fo 
any \ 
(Fak 
iF iP fi 
7 : 
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PCB - Program Communication Block 
DSECT Name: DBPCB 


The data management PCB (program communication block) is described as part of the general structure and 
description of the program specification block (PSB). 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DBPCB 
0 (0) 8 DBPCBDBD DBD name 
8 (8) 2 DBPCBLEV Level feedback 


THE following fields are used for communication from PSBGEN 


to ACBGEN only. 
8 (8) 
9 (9) 
10 (A) 
12 (C) 
16 (10) 
20 (14) 
28 (1C) 
28 (1C) 
32 (20) 
32 (20) 
34 (22) 
36 (24) 


256 


DBPCBLE1 
DBPCBLE2 


DBPCBGO 


DBPCBAE 


DBPCBSTC 
DBPCBPRO 
DBPCBJCB 


DBPCBTKW 


DBPCBSFD 


DBPCBLKY 


DBPCBMKL 


DBPCBMUL 


DBPCBNSS 


DBPCBSSN 


DBPCBSOF 


DBPCBKFD 


Flag byte 
Flag byte 


"X'O02'" GO or GOP PROCOPT 
for PCB 


"X'O1'" Program isolation 
suppressed for this PCB 


Status codes 

DL/I processing options 
JCB address 

"X'80'" Another task 
waiting for resource owned 
by this task 


Segment name feedback 


Maximum length of key 
feedback area 


Current length of the key 
feedback area 


"X'O1'" Positioning is 
multiple (for ACBGEN only) 
Number of sensitive > 
segments in the PCB (after 
ACBGEN only) 


Number of sensitive 
segments (for ACBGEN only) 


Offset to the first 
segment (for ACBGEN only) 


Key feedback area 
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Cross Reference 

Hex Hex 
Name Offset Value 
DBPCB O 
DBPCBAE 9 01 
DBPCBDBD 0 | 
DBPCBGO 9 02 
DBPCBJUCB 10 
DBPCBKFD 24 
DBPCBLEV 8 
DBPCBLE1 8 
DBPCBLE2 9 
DBPCBLKY 1C 
DBPCBMKL 1C 
DBPCBMUL tC 01 
DBPCBNSS 20 
DBPCBPRO C 
DBPCBSFD 14 
DBPCBSOF 22 
DBPCBSSN 20 
DBPCBSTC A . 
DBPCBTKW 10 80 


5-112 DL/IDOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 


fe o™ 
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PDCA - Problem Determination Control Area 


DSECT Name: PDCA 





The PRCA (Problem Determination Control Area) is used to hold miscellaneous data used in problem 











determination. 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 PDCA 
0 (0) 4 PDCACPAC Variable length segment 
compression routine list 
pointer 
4 (4) 4 PDCAXPRM Secondary index 
suppression routine list 
pointer 
te my, 8 (8) 4 PDCAFERT Field exit routine list 
( | pointer 
12 (C) 1 PDCAFlag PDCA flag byte 
PDCASTOP Msp otecige Citi caas "X'80'" Stop saving 
messages 
13 (D) 3 PDCAMSG Abend code 
16 (10) 4 PDCADecB Online formatted dump ECB 
cn MPS TERMINATION CLEANUP ROUTINE ADDRESSES 
( 20 (14) 4 PDCBPCNT Address of DLZBPCOO normal 
termination MPS cleanup 
routine in DLZMPCOO 
24 (18) 4 PDCBPCAT Address of DLZBPCOO 
abnormal termination MPS 
cleanup routine in 
DLZMPCOO 
28 (1C) 4 PDCSYSTT Address of system abnormal 
termination MPS cleanup 
routine in DLZMPCOO 
PDCAEND Marat enced: "*'" end of problem 
determination control area 
Cross Reference 
Hex Hex 
Name Offset Value 
PDCA 0 
PDCACPAC O 
PDCADecB 10 
PDCAEND 1C 20 
PDCAFERT 8 
PDCAFlag "eC 
PDCAMSG D 
PDCASTOP C 80 
PDCAXPRM 4 
PDCBPCAT 18 
PDCBPCNT 14 
PDCSYSTT 1C 
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PDIR - PSB Directory 
DSECT Name: DLZPDIR , | & ” 


The PSB directory contains an entry for every PSB (program specification block) that may run under DL/I control. 
The PSB directory is part of the DL/I nucleus and is created during DL/I system definition for online processing. 
The start address of the PSB directory (SCDDLIPS), the entry length (SCDDLIPL), and the number of entries’ 
(SCDDLIPN) are contained in the SCD (system contents directory). 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DLZPDIR PSB directory entry dummy 


section 


PDIR "*" Jabel used to 
establish address 
0 (0) 8 PDIRSYM PSB execution name 
converted from name. 
supplied during PSBGEN . * 
8 (8) 4 PDIRADDR PSB address a 
12 (C) 4 PDIRPSBL Storage required for PSB 
16 (10) Z PDIRZWA Storage required for index 
workarea 
18 (12) 1 PDIRCode PSB code byte 
PDIRUPD "x'80'" This PSB is update 
sensitive Pe 
PDIREXC "x'40'" This PSB requires | eY 
DMB exclusive control 
PDIRPLI "X'20'" This PSB for PL/I 
PDIRDUPL "xX? 10°" This: PSB: 1s 
duplicate 
PDIRMPLI "X'O8'" PSB host language 
is PL/I 
—_ 
PDIRDELT "x'02'" This PSB is delete . 
sensitive ue / 
PDIRTFAL "X'O1'" PSDB-SDB chaining 
error detected during 
on-line task termination 
19 (13) 1 PDIROPTC PSB scheduling codes 
PDIRNOSC "X'80'" Do not schedule 
this PSB 
PDIRSCHD "X'4O'" This PSB is 
scheduled 
PDIRREM "X'20'" PSB is on remote 
system 
PDIRNTNT "X'10'" This PSB waiting 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
PDIRBPLI eee ee "x'O8'" Reserved 
PDIRXPSB deren cas. ten Wiest "X'O4'" Remote PST + local 
component 
PDIRBAD | "X¥'O1'" PSB initialization 
failed 
20 (14) 4 PDIRSILA Address of PSB segment 
intent list 
24 (18) 4 PDIREMOT Remote PDIR (RPDIR) entry 
address 
PDIRLEN cere tae ee "*-PDIR" PSB directory entry 
Length 


Cross Reference 


( Hex Hex 
Ma” Name Offset Value 
DLZPDIR 0 
PDIR O 00 
PDIRADDR 8 
PDIRBAD 13 01 
PDIRBPLI 13 08 
PDIRCode 12 
PDIRDELT 12 O02 
PDIRDUPL 12 10 
a PDIREMOT 18 
ae PDIREXC 12 40 
( | PDIRLEN 18 ie 
PDIRMPLI 12 08 
PDIRNOSC 13 80 
PDIRNINT 13 10 
PDIROPTC 13 
PDIRPLI 12 20 
PDIRPSBL Cc 
PDIRREM 13 20 
PDIRSCHD 13 40 
PDIRSILA 14 
” PDIRSYM 0 
_ PDIRTFAL 12 01 
o. PDIRUPD 12 80 
= PDIRXPSB 13 04 
PDIRZWA 10 
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PPST - PST Prefix 


DSECT Name: DLZPPST 
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The PST prefix contains data required for user task scheduling in a CICS/VS online environment. It also contains a 
section used by buffer handler for enqueue/dequeue information and another section used for online segment intent 
scheduling. The PST prefix is logically a part of the PST (partition specification table). However, in order to 
operate more efficiently in a virtual storage environment, ALL PST prefixes (one for batch) are organized so that 
they are physically located in one contiguous area. Field SCDPPSTS points to the PST prefix and field SCDPPSTW 
indicates the number of PPSTs. 


Offsets 


(Dec) (Hex) Length 


0 


(0) 


(1) 


(2) 
C3) 


0 


Field/Flag Flag Code 


Name (Bit) 





DLZPPST 
PPST 


PPSTCF 
PPSTCE 


PPSTECB 


PPSTCW 

ee 

PPSTIO eee 
PPSTSI eat ads 
PrPolTe ae ae 
PPSTBF are eee 


PPSTMPS sigecee “been 


PPSTACT feed? er) ace 


PPSTMSDL Sas. Agse es 
PPSTA a eee 
PPSTCA 
PPSTID 


PPSTTCA 
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Description 
PST prefix dummy section 


Ue 


Prefix chain forward 
pointer 


Prefix chain backward 
pointer 


Post/wait byte of PST ECB 


PST prefix program isolation 
wait chain 


Task schedule and dispatch 
indicators 


"x'80'" Waiting for I/O 


"x'4o'" Can not schedule 


— due to segment intent 


conflict 


"xX'20'" Can not schedule 
task count limit exceeded 


"X'10'" Task enqueued by 
buffer handler 


"x'O8 /" Indicates MPS task 


"X¥'O4'" This is current 
task 


"X'O2'" Scheduled by BPC 
"X'O1'" Task scheduled 
Address of PST 

DL/I. task ID (PPST number) 


Task's TCA address 





as 





¢ 
Like : 
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Offsets 


(Dec) 


(Hex) Length 


Field/Flag Flag Code 
Name (Bit) 





Description 


Section used by buffer handler for ENQ/DEQ. The following four 


fields must be contiguous and their order must not be changed. 


12 


16 


20 


24 


28 


(C) 4 
(10) 4 
(14) 4 
(18) 4 
(1C) 1 
(1D) } 


PPSTEXCI 


PPSTPECI 


PPSTSUPO 


PPSTEXTO 


PPSTIND1 


PPSTEXQ haces. Botte 


PPSTEND Seas “austent 


Section used for online segment intent scheduling 


12 


16 


(C) 4 


(10) 1 


PPSTPDIR 
PPSTTSKP 


PPSTLEN BO Mies - See e 


Enqueue/dequeue pointers for 

existing control interval 

Byte O-1 = buffer number 

Byte 2-3 = PPST number of 
task next in 
chain 


Enqueue/dequeue pointers for 

pending control interval 

Byte O-1 buffer number 

Byte 2-3 PPST number of 
task next in 
chain 


tot 


Enqueue/dequeue pointers for 

subpool space byte 0-1 = 

Byte O-1 subpool number 

Byte 2-3 PPST number of 
task next in 
chain 


Enqueue/dequeue pointers for 
data set extension queue 


Byte O-1 = not used 

Byte 2-3 = PPST number of 
task next in 
chain 

Flag byte 


"X'80'" This task was on 
the control interval 
extension queue 

Reserved 


"*" end of prefix DSECT 


Task's PDIR entry address 
Task dispatching priority 


"*-PPST" Length of the PST 
prefix 
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Cross Reference 





Hex Hex 

Name Offset Value 

DLZPPST O 

PPST 0 OO 

PPSTA 4 01 

PPSTACT 4 04 

PPSTBF 4 10 

PPSTCA 5 

PPSTCB 1 

PPSTCF 0 

PPSTCW 3 

PPSTECB 2 

PPSTEND 1D 20 

PPSTEXCI C 

PPSTEXQ 1c 80 

PPSTEXTO 18 

PPSTID 8 

PPSTIND 4 

PPSTIND1 1c: pe 

PPSTIO 4 80 . 

PPSTLEN 10 20 Qe 

PPSTMPS 4 08 

PPSTMSDL 4 02 

PPSTPDIR C 

PPSTPECI 10 

PPSTSI 4 40 

PPSTSUPO 14 

PPSTTC 4 20 

PPSTTCA 9 

PPSTTSKP 10 
yin 
wy 
fe ~ 
ee” 





5-118 DL/I DOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 


PSB - PSB Prefix 











( DSECT Name: PSB 
The PSB prefix is described as part of the general structure and description of the program specification block 
(PSB). 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 PSB 
0 (0) 1 PSBVMID DOS DL/I version ID 
PSBV11 ees Gea "X'O1'" Version 1.1 or later 
1 (1) 3 PSBIOASZ Length of I/O workarea 
(PSBIOAWK) 
7 0 (0) 4 PSBFRTA Field exit routine address 
me if no entries in table, 
ee low order 3-bytes = 0 
_ (used only during 
initialization) 
4 (4) 4 PSBXIOWK Address of index I/O work 
area or user's version of 
a segment built by retrieve 
8 (8) 4 PSBSEGWK Address of variable length 
segment work area 
a 12 (C) 4 PSBPST PST address if PSB is 
( scheduled or active 
; 16 “C7103 4 PSBXPCB Address of index PCB 
20 (14) 4 PSBNDXWK Address of index 
Maintenance work area or 
pointer to the field exit 
parameter list 
24 (18) 4 PSBIOAWK Address of I/O work area 
act 28 (1C) 1 PSBINDEX (Not used in DL/I DOS/VS) 
(_ 29 ~+=(1D) 1 PSBCode PSB flags 
PSBNPLI Seria "X'20'" PSB is for 
non-PL/I language 
PSBPLI ee "xX'10'" PL/I is source 
language 
PSBFLS She se "X'O1'" PSB contains field 
sensitive segment 
PSBLOGDB eee, weeds "xX'O2'" PSB retrieves a 
logical data base 
30 (1E) 2 PSBSIZE PSB size 
32 (20) Z PSBTPOF'F (Not used in DL/I DOS/VS) 
34 (22) 2 PSBDBOFF Offset from the PSBLIST to 
first DB PCB 
36 (24) 256 PSBLIST Beginning of the PCB list 
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Cross Reference 





Hex Hex 
Name Offset Value 
PSB 0 
PSBCode 1D 
PSBDBOFF 22 
PSBFLS 1D 01 
PSBFRTA 0 
PSBINDEX LC 
PSBIOASZ 1 
PSBIOAWK 18 
PSBLIST 24 
PSBLOGDB 1D O02 
PSBNDXWK 14 
PSBNPLI 1D 20 
PSBPLI 1D 10 
PSBPST C 
PSBSEGWK 8 
PSBSIZE 1E 
PSBTPOFF 20 7 
PSBVMID 0 — 
PSBV11 0 01 q : 
 PSBXIOWK 4 foe 


PSBXPCB 10 
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PSBSQLIO - PSB SQL/DS I/O Area 


é DSECT Name: DLZPSBIO 
: This DSECT is used to create the DL/I SQL/DS tables: PPBBASICDATA, PSBSEGMENTDATA, and 
PSBFIELDDATA. 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) O PSBSQLIO 
0 (0) 8 CREADATE Date ‘yyyymmdd ' of 
creation 

O (0) Z CREACENT Century 

2 (2) 2 CREAYEAR Year 

4 (4) 2 CREAMON Month 

(— 6 (6) 2 CREADAY Day 
a 8 (8) 8 CREAUSER Userid of creator 

16 (10) 8 CHANDATE Date 'yyyymmdd' of change 
24 (18) 8 CHANTIME. - Time 'hhmmssff' of change 
24 (18) 2 CHANHOUR Hours 
24 (18) 1 CHANHOU 1 Labels for making hour 
25. (12) 1 CHANHOU2 Printable 
26 (1A) 2 CHANMIN Minutes 
26 (1A) 1 CHANMIN1 Labels for making minutes 
2) (1B) 1 CHANMIN2 Printable 

28 (1C) 2 CHANSEC Seconds 
28 (1C) 1 CHANSEC1 Labels for making seconds 
29 (1D) 1 CHANSEC2 Printable 

30 (1E) 2 CHANFRAC Fraction of seconds 

30 (1E) 1 CHANFRA1 Labels for making fraction 
3] (1F) 1 CHANFRA2 Printable 

32 (20) 8 CHANUSER Userid of modifier 





This section contains information unique to the 


PSBBASICDATA table. 
40 (28) 7. PSBName Name of PSB 
47 (2F) 5 LANGUAGE Cobol or PL/I 


This section contains information unique to the 
PSBPCBDATA table. 


48 (30) 4 PCBNUMBR Number of PCB in hierarchy 
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52 


54 
61 
68 


72 


80 


88 


(34) 


(36) 
(3D) 
(44) 


(48) 


(50) 


(58) 


DBTYPE 


DBDName 


~ PCBPROCO 


KEYLEN 


POSITING 


PROSEQ 
PROSEIND 


PSBPCBLN 


This section contains information unique to the 


SEGNUMBR 


 SEGMName 


PARENTNM 


PARENIND 


' SEGPROCO 


PSBSEGMENTDATA table. - 
52 (34) 4 
56 (38) 8 
64 (40) 8 
72 (48) 2 
Se: (4A) 4 


PSBSEGLN 


Pere ae eames ta 


This section contains information unique to the 


PSBFIELDDATA table. 
64 (40) 4 
68 (44) 8 
76 = (AC) 4 
80 (50) 2 
82 (52) 8 
90 (5A) 2 
92 (5C) 4 
96 (60) 2 
98 (62) 1 
100 (64) 2 
102 (66) 8 
110 (6E) 2 
112 (70) 1 
113. (71) 3 
116 = (74) 2 


FLDNUMBR 


FLDName 


BYTES 


BYTESIND 


POSName 


POSNAIND 


POSITION 


POSITIND 


DATATYPE 


DATATIND 


RTNName 


RTNIND 


FLDTYPE 


REPLACE 


REPLAIND 
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"DB' for upward 
compatibility with IMS 
Name of DBD 
Processing option 
Longest concatenated key 


Single or multiple 
positioning 


Name of the secondary index 
SQL indicator variable 


"*—-language" length of the 
PSBPCB table to clear 


Segment number 

Name of sensitive segment 
Name of parent of segment 
SOL Pnaied ice wavAanic 
Processing option 


"*—-PCBNUMBR" length of the 
PSBSEGMENT table to clear 


Field number 

Name of sensitive field 
Length of the field 

SQL indicator variable 


Name of the previously 
defined field 


SQL indicator variable 
Starting pecicion of field 
SQL indicator variable 
Type of data in field 

SQL indicator variable 
Name of field exit routine 
SQL indicator variable 
Sensitive or virtual 

Can field be modified? 


SQL indicator variable 





a. 


a 
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118 


374 
376 
380 
382 
390 
392 


400 


(76) 


(176) 
(178) 
(17C) 
(17E) 
(186) 
(188) 


(190) 


Z 


CValue 


CVALLEN Pa in eee 


CValueS ram (ts ins aes eee 


CVALIND 
IValue 
IVALIND 
DValue 
DVALIND 
FValue 
FVALIND 


PSBFLDLN 


PSBIOLEN 


Initial character value 


"CValue" length of 
Character value 


"CValue+2" the character 
value 


SQL indicator variable 
Initial integer value 

SQL indicator variable 
Initial decimal value 

SQL indicator variable 
Initial float value 


SQL indicator variable 


*-PCBNUMBR" length of the 
PSBFIELD table to clear 


"*-PSBSOLIO" length of 
PSBFieldDATA. 
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Cross Reference 
Hex 
Name Offset 
BYTES AC 
BYTESIND 50 
CHANDATE 10 
CHANFRAC 1E 
CHANFRA1 1E 
CHANFRA2 1F 
CHANHOUR 18 
CHANHOU 1 18 
CHANHOU2 19 
CHANMIN 1A 
CHANMIN1 1A 
CHANMIN2 1B 
CHANSEC 1G 
CHANSEC 1 1c 
CHANSEC2 1D 
CHANT IME 18 
CHANUSER 20 
CREACENT 0 
CREADATE 0 
CREADAY 6 
CREAMON 4 
CREAUSER 8 
CREAY EAR 2 
CVALIND 176 
CVALLEN 76 
CVALUE 76 
CVALUES 76 
DATATIND 64 
DATATYPE 62 
DBDNAME 36 
DBTYPE 34 
DVALIND 186 
DVALUE 17E 
FLDNAME 44 
FLDNUMBR 40 
.. FLDTYPE 70 
FVALIND 190 
FVALUE 188 
IVALIND 17C 
IVALUE 178 
KEYLEN 44 
LANGUAGE 2F 
PARENIND 48 
PARENTNM 40 
PCBNUMBR 30 
PCBPROCO 3D 
POSITIND 60 
POSITING 48 
POSITION 5C 
POSNAIND 5A 


Hex 


Value 


76 


78 


Name 


POSNAME 
PROSEIND 
PROSEQ 
PSBFLDLN 
PSBIOLEN 
PSBNAME 
PSBPCBLN 
PSBSEGLN 
PSBSQLIO 
REPLACE 
REPLAIND 
RTNIND 
RTNNANE 
SEGMNAME 
SEGNUMBR 
SEGPROCO 
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Hex 


Offset 


Hex 
Value 


0162 
0192 


2B 
1E 
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f 
/ 
f 
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PSDB - Physical Segment Description Block 


The PSDB is described as part of the general structure and description of the data management block (DMB). 


é DSECT Name: DMBPSDB 
Offsets 
(Dec) (Hex) Length 
0 (0) 0 
0 (0) 1 
1 (1) j 
2 (2) 1 
3 (3) 1 
( 4 (4) 1 
5 (5) 1 
6 (6) 1 
7 (7) 1 
8 (8) 2 
10 (A) 2 
12 (C) 1 





Field/Flag 


Name 


Flag Code 
(Bit) 


DMBPSDB 


DMBSC 


DMBPSC 
DMBLEV 
DMBXNULL 


\ 
DMBPPFD 
DMBPPBK 


DMBDCB 
DMBPTR 
DMBCTR nee 


DMBPTFD ae 
DMBPTBK i 


DMBPP ee eee 


DMBLTFD Ssgcmice. bwee 
DMBLTBK See cat lee 


DMBLP ede Stee . “Graal Ate 
DMBHIER ee 


DMBPRSZ 
DMBDL 
DMBISRT 


DMBXPROT Wield. ater 





Description 


Segment code 

"X'O1'" Root segment code 
Parent's segment code 
Segment level 

(Not used in DL/I DOS/VS) 
Pointer number in parent 
to first occurrence of 
segment for parent 
Pointer number in parent 
to last occurrence of 
segment for parent 

ACB number 

Prefix flags 

"X'80'" Counter present 
"X'4O'" Segment has 
physical twin forward 
pointer 

"X'20'" Segment has 
physical twin backward 


pointer 


"X'10'" Segment has 
physical parent pointer 


xX 08." Segment has 


logical 
pointer 


reo 
logical 
pointer 


wet ODM 
logical 


SC O4 em 
DOS/VS) 


twin forward 


Segment has 
twin backward 


Segment has 
parent pointer 


(Not used in DL/I 


Prefix length of segment 


Data length of segment 


Insert rules 


ph Gia sO Ns 


System data in 


index is protected 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
DMBIHERE Ae "X'30'" For no key field, 
insert at current position 
DMBILST Pas ae "X'20'" For no key field, 
insert after existing segment 
DMBIFST .1 "X'10'" For no key field, 
insert before existing gegment 
DMBNOTW eee "X'O4'" No twin allowed 
DMBIRL al "X'O3'" Insert rule is logical 
DMBIRP male "X'02'" Insert rule is physical 
DMBIRV ede. "X'Q1'" Insert rule is virtual 
13 (D) 1 DMBDLT Delete/replace rules 
DMBDRLC 17 "X'30'" (Not used in DL/I —_— 
DOS/VS) \e 
; ee” 
DMBDRPC olds "X'20'" (Not used in DL/I 
DOS/VS) : 
DMBDRVC rai "X'10'" (Not used in DL/I 
DOS/VS) 
DMBRRL Wea s "X'OC'" Replace rule is 
logical 
DMBRRP 1. "xX* 06" " Replace rule is P ae 
physical q 
| L 
DMBRRV rs "X'O4'" Replace rule is 
virtual 
DMBDRL ae, "X'O3'" Delete rule is logical 
DMBDRP ght "X'O2'" Delete rule is 
| physical 
DMBDRV Pe "X'O1'" Delete rule is 
virtual Gor 
14 (E) 2 DMBCKL Concatenated key length of ee. 
parent of this segment 
16 (10) 1 DMBUSE 
DMBEX "X'80'" This PSDB in use 


16 


(10) 


4 


DMBUP 


DMBFDBA 
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exclusively 


—"y'4OQ'" This PSDB in use 


for update bits 2-7 contain 
a count of read only users 


Address of FDBs for this 
segment 








\, 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 


aaa 





20 (14) 4 DMBFSDB 

24 (18) 1 DMBVLDFG 
DMBPI ges 
DMBCPT ada “Wigs 
DMBVLS sea + Nati 32 


DMBCPTKY area? xara che 


DMBCPT LT Le er | 


~ 


25 (19) 3 DMBSCTAB 


28 CTC) Z DMBSGMN 
30 (1E) Z DMBSGMX 
32 (20) 1 DMBF lag 


DMBPAIR fe leciy agscrtee 


DMBLPEX galled 


DMBLCEX sea Ng 


DMBNXEX Sie 
DMBXDEX deniiy: alee 
32 (20) 4 DMBLST 


DMBPSDBN pal on ee 


DMBPLEN a emma er 


Description 


Address of first SDB for 
this segment 


Variable length data flag 


"X'80'" Program isolation 
should be done for this 
segment 


"X'O8'" Segment has 
compression routine 


"X'O4'" Segment is 
variable length 


"X'O02'" Compression 
routine has key expand 
routine 


"X'O1'" Compression 
routine has initialization 
processing 


Address of segment 
compaction table 


For variable length 
segment minimum length of 
segment 


For variable length 
segment maximum length of 
segment 


Secondary list flags 


"X'48'" (Not used in DL/I 
DOS/VS) 


"X'4O'" A logical parent 
exists (segment 1S a 
logical child) 


"X'20'" One or more 

logical children exist 
(segment is a logical parent 
parent) 


"xX'10'" One or more indexes 
exist 


"X'O4'" An indexed segment 
exists 


Address of secondary list 
for this segment 


"*" end of one PSDB entry 


"DMBPSDBN~-DMBSC" length of 
each PSDB entry 
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Cross Reference 


Hex 
Name Offset 


DMBCKL E 
DMBCPT 18 
DMBCPTIT 18 
DMBCPTKY 18 
DMBCTR 
DMBDCB 
DMBDL 
~DMBDLT 
DMBDRL 
DMBDRLC 
DMBDRP 
DMBDRPC 
DMBDRV 
DMBDRVC 
DMBEX 
DMBFDBA 
DMBFLAG 
DMBFSDB 
DMBHIER 
DMBIFST 
DMBIHERE 
DMBILST 
DMBIRL 
DMBIRP 
DMBIRV 
DMBISRT 
DMBLCEX 
DMBLEV 
DMBLP 
DMBLPEX 
DMBLST 
DMBLTBK 
DMBLTFD 
DMBNOTW 
DMBNXEX 20 
DMBPAIR 20 
DMBPI 18 
DMBPLEN 20 
DMBPP 

DMBPPBK 
DMBPPFD 
DMBPRSZ 

DMBPSC 

DMBPSDB 
DMBPSDBN 2 
DMBPTBK 
DMBPTFD 
DMBPTR 

DMBRRL 

DMBRRP 


UOUOUU00C0P On 


— QO —_- — 
SE O00 


NON NO . 
OWIAPO-O SIN On 7-0 0:0. 0 


OOYNNYNN OOO UA] 


Hex 
Value 


24 
40 


OC 
08 


Name 


DMBRRV 
DMBSC 
DMBSCTAB 


DMBSGMN 


DMBSGMX 
DMBUP 
DMBUSE 
DMBVLDFG 
DMBVLS 
DMBXDEX 
DMBXNULL 
DMBXPROT 
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Hex 


Offset 


Hex 
Value 


O04 


40 
O04 


80 
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wes 


a 


he ee 





H 


fo 





(— 
| 
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PSIL - PSB Segment Intent List 


DSECT Name: DLZPSIL 


The PSB segment intent list is pointed to from the PSB directory and is a list of all the DMBs which may be used by 


that PSB (program). 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 

0 (0) 0 DLZPSIL 

‘) (0) 8 PSILDMBN 

O (0) 4 PSILDIRA 

4 (4) 2 PSILDIRN 

8 (8) 1 PSILNTNT 


PSTIDBEX° “acce oui 
PSIUDBUP 1k 
PSILBFRI ..1. .... 
PSITGOPO: saa 
PSILNREF .... 1... 


PSILNOPI ee ae ae ee 
9 (9) 1 PSILLNGH 


10 (A) Var PSILSEGD 


Each segment in the DMB pointed to by an intent list entry 
is described by two-bit fields beginning at PSILSEGD. There 
is a list entry for each DMB referenced in the associated 
PSB. The two bits represent the PSBs sensitivity to each 
PSDB and have the following meanings: 

00 - PSB not sensitive to the segment 

01 - PSB read only sensitive 

10 - PSB is update sensitive 

11 - PSB req exclusive ctl(HISAM root insert) 


PSILNS A. ar 


PSILRO Tiga: Vee lhe 


Description 


PSB segment intent list entry 
DMB name for this list 

entry as produced by the 
block builder utility 
"PSTLDMBN" DDIR address of 
corresponding DMB resolved 
during initialization 


"PSTLDIRA+4" DMB number of 
this DMB 


Segment intent descriptor byte 


"X'80'" PSB requires data 
base exclusive control 


"X'40'" PSB is update 
sensitive to this. data base 


"X'20'" Buffer pool space 
request for this KSDS 


"x'10'" PSB references are 
all 'Go' 


"xX'O8S'" Data base’is not 
referenced 


"X'O4'" No translate for PI 
Length of segment intent list 


Start of segment intent bits 


"X'FF'™ Mask used to test 
4 segments for no 
sensitivity 


"X'AA'" Mask used to test 
4 segments for update 
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The bits are allocated to segments in the following manner: 








Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
PSILEND End of PSB intent list 
indicator 

Cross Reference 

| Hex Hex 
Name Offset Value 
DLZPSIL O 
PSILBFRI 8 20 
PSILDBEX 8 80 
PSILDBUP 8 40 
PSILDIRA 0 OO 
PSILDIRN O O04 
PSILDMBN O 
PSILEN 
PSILGOPO 8 10 
PSILLNGH 9 fo ™ 
PSILNOPI 8 04 | | 
PSILNREF 8 08 ee 
PSILNS A FF 
PSILNTNT 8 
PSILRO A AA 
PSILSEGD A 
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PST - Partition Specification Table 
( : DSECT Name: DLZPST 


One partition specification table (PST) exists for each task in an online or batch processing partition. All DL/I 


resources allocated to the task can be located through the PST. The PST also contains pointers to the task I/O area 


and any segments currently associated with the task. 


Offsets 


(Dec) (Hex) Length 


0 


12 
16 


20 


C 24 
=e 28 


32 
36 
40 


44 


( . ” 48 
ae Bo 


56 


60 


64 


(0) 


(0) 


(30) 
(34) 
(38) 
(3C) 


(40) 


0 


Field/Flag 


Name 
DLZPST 
PST 


PSTPREAD 


PSTDLIWO 


PSTDLIW1 

PSTDLIW2 
PSTDLIW3 
PSTDLIW4 
PSTDLIW5 
PSTDLIW6 
PSTDLIW7 
PSTDLIW8 
PSTDLIW9Y 
PSTDLIWA 
PSTDLIWB 
PSTDLIWC 
PSTDLIWD 
PSTDLIWE 


PSTDLIWF 


USER CALL PROCESSING SECTION 


68 





(44) 


1 


PSTCode1 
PSTSCALL 


PSTINTNT 


PSTSCHED 





Description 


PST dummy section 


"*" start of PST 


Address of this PST's 


prefix 


Action-modules work area 


HD unload (DLZURGUO) 


return address 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 
Action-modules 


Action-modules 


- Action-modules 


Action-modules 


Action-modules 


Action-modules 


for retrieve 


work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 


work 


area 


area 


area 


area 


ared 


area 


area 


area 


area 


aLled 


area 


area 


area 


area 


area 


"X'80'" PST for system call 


"x'4O'" Cannot schedule 
intent not satisfied 


"X'10'" OK to complete 


scheduling 
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Note: 
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If PSTINTNT and PSTSCHED are both set, DL/I Backout is in control. 


68 


V2 


a 


76 
76 
80 
—6B4 


88 


USER TASK STATISTICS 


92 


92 


96 


100 


104 


108 


120 


124 


128 


(44) 


(48) 


(50) 
(54) 


(58) 


(5C) 
(5C) 
(60) 
(64) 
(68) 


(6C) 


(7C). 


(80) 


4 


1 


4 


4 


4 


4 


PSTPRVWT 


PSTOLTW 


PSTLOGIP 
PSTSCDAD 
PSTABIND 
PSTERMSP 
PSTSABND 
PSTTABND 


PSTIQPRM 


PSTMI 


PSTUSER 
PSTSEGL 
PSTSEG 


PSTPSB 


PSTACCT 
PSTDGU 
PSTDGN 


PSTDGNP 


PSTDGHU 


PSTDGHN 


PSTDGHNP 
PSTDISRT 
PSTDDLET 
PSTDREPL 


PSTDCHKP 
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ssh 


"X'O8'" Logger privat 
wait indicator 


"x'QO4'" Another task 
waiting for resource owned 
by this task 


"x02" Log, 1/70. in 
progress | 


Address of addressable 
portion of SCD 


Task/system ABEND 


indicator 


"X'80'" PUT error message 


indicator 


"xX'20'" System ABEND 
indicator bit 


"x'10'" Task ABEND 
indicator bit . 


Address of callers 
parameter list 


Return segment indicator 


Address of user's I/O area 


Retrieved segment length 


Retrieved segment address 


PDIR entry address 


Number 
Number 
Number 
Number 
Number 


Number 
issued 


Number 
issued 


Number 
issued 


Number 
issued 


Number 
issued 





OF 
of 
of 
of 
of 


of 


OL 


of 


OF 


of 


GU calls issued 


GN calls issued 


GNP calls issued 


GHU calls issued 


GHN calls issued 


GHNP 


ISRT 


DLET 


REPL 


CHKP 


calls 


calls 


calls 


calls 


calls 
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PSTSTLN 

C Action module section 
132 (84) 4 PSTDBPCB 
136 (88) 1 PSTFNCTN 


Equates for buffer handler function codes 


PSTBKLCT 


PSTBYLCT 


( J PSTGBSPC 


PSTFBSPC 
PSTBFMPT 


PSTBFALT 


PSTBYALT 


PSTPGUSR 

PSTWRITE 

( % PSTSTLEO 
% et 

PSTERASE 

PSTGETNX 


- PSTSTLBG 


PSTPUTKY 


PSTMSPUT 





goles 


jaar 


"*-PSTACCT" length of user 
call statistics 


Address of current PCB 


Function codes 


"x¥'O1T'"™ Locate relative 
block number 


"X'O2'" If HD, locate 
relative byte number. If 
HISAM or HIDAM index, read 
a record by RBA from a 
KSDS. If HISAM, read a 
record by RBA from an 

ESDS 


"X'O3'" Get buffer space 
"X'O4'" Free buffer space 
"X'O4'" Mark buffers empty 


MX O57 TF HDS. mack «a 
buffer containing data 
altered if HISAM or HIDAM 
index; write a record by 
RBA to a KSDS if HISAM 
write a record by RBA to 
an ESDS 


"x'oOe'" Locate a relative 
byte number and mark 
buffer altered 


"X'O7'" Purge all buffers 
altered by a task 


"X'O8'" Write new record 
to HISAM ESDS 


"X'O9'" Read a record by 
key from a KSDS 


"X'OA'' Erase a record in 
a KSDS 


"X'OB'" Read the next 
record ina KSDS 


"X'OC'" Read the record 
containing The first root 
in a KSDS 


"X'OD'" Insert a record by 
key into a KSDS 


"X'OE'" insert record(s) 
sequentially into a 
KSDS 
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Equates for OPEN/CLOSE function codes 


PSTOCDMB isiitides Meee 
PSTOCPCB Sidley’ wae oe bus 


PSTOCALL een ceils 
PSTOCCLS 
PSTOCOPN Sacdes, “Matene 


PSTOCDCB banta' 
PSTOCLD eee 
PSTOCDSG ae ree 


PSTOCBAD Vetere 


Equates for Space Management function codes 


PSTGTSPC ee ae 
PSTERSPE eee eo 
PSTBTMPF aie eh | 
PSTGTRAP b aibud.. mL oicd 


Equates for Index Maintenance function codes 


PSTXMDLT 1.1. 


PSTXMRPL Sig. Geog 


PSTXMISR lens ue a 
PSTXMUNL 1a (Care 
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"X'O1'" Close DMB address of 


DMB in R2 


PCB in R2 


"X'O2'" Close PCB address of 


"X¥'O4'" Close all DMB's 


"X¥'OO'" Close call bit 4=0 


"X'O8'" Open call bit 4=1 


"X'10'" Open/close the dmb 


in pstdcbnm dsg 
PSTDSGA 


address in 


"X'20'" Open for load 


"X'4O'" Open the DSG in 


PSTDSGA 


"X'80'" Open unsuccessful 


"X'80' Backout in control 


aaa © fd a de 


et space for 


segment (R5 contains 


pointer to PSDB) 


rk Og") FRG Space: TOr 
segment (R5 contains 


pointer to PSDB) 


"X'O3'" Do bit map update 


"X'O4'" Get space close to 


rap in PSTBYTNM 


"X¥'AO'" Perform 
Maintenance for 
be deleted 


"X'AIT'" Perform 
maintenance for 
be replaced 


UX TAZ" Perform 
Maintenance for 
be inserted 


"X'A3'" Perform 
Maintenance for 
be unloaded 


index 
segment to 


index 
segment to 


index 
segment to 


index 
segment to 
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Equates for Program Isolation function codes 


C PSTOENQ 


PSTOQVER 
PSTQDEQ 
PSTQPUR 


137 (89) 1 PSTRTCDE 
Equates for buffer handler return codes 
PSTCLOK 
PSTGTDS 
(_ PSTIOERR 
PSTRDERR 


PSTNOSPC 
PSTBDCAL 


PSTNOTFD 


PSTNWBLK 





PSINPESP 


PSTWROSI 


PSTENDDA 





PSTBYEND 


PSTEOD 


PSTINLD 





situ ewe 


lees 


Poe een eee 


"X'OO'" Enqueue (queueing 
facility) 
"X'O4'" Verify (queueing 
facility) 
"X'O8'" Dequeue (queueing 
facility) 


"xX'OC'" Purge (queueing 
facility) 


Return codes 


"xX'OO'" No error occurred 


"X'O4'" RBN is beyond the 
end of the data set 


"X'O6B'™ T/O0 error 


"X'O8'" Permanent read 
error 


"X'OC'" No space for adds 
rx TO" Tliegal call 


Ux TOS No record ‘tound 
(retrieve by key) 


"X'18'" New block was 
created in the buffer pool 


SX’ 1" Trsuriicient. Space 
in the buffer pool 


"X'20'" Size of requested 
buffer exceeds the size of 
buffers in any subpool 


"X'24'" End of data set no 
record returned 


"X¥'28'" Key or RBA higher 
than the highest key or 
rba in the data set 


"X'2C'" End of data set. 
reached on a request 
1ssued by open 


"X'34'" Invalid request 
during data set loading 
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Space Management return codes 


-PSTFRBLK 


PSTNOBFA 


PSTBTMPF 


Equates for Program Isolation return codes 


PSTORWR 
PSTQROOP 


PSTORDDL 
PSTORBDC 
PSTORNSE 
PSTPISIU 
PSTPIPIU 
PSTOFFST 


138 (8A) 2 


140 (8C) 4 PSTDSGA 
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oe | 


eT. cheval 


eA 


Licensed Material—Property of IBM 


"X'30'" Block not used due 
to distributed free space 
parm 


"¥'31'" Unsuccessful. mark 
buffer alter request 


"X'O3'" Bit map update 
required 


"X'O1'" Wait was required 
"x'Q2'" Other owners present 


"X'O4'" Terminated due to 
deadlock 


"X'O8'" Terminated due to 
bad call 


"X'10'" Terminated 
insufficient storage 


"X'4O'" Secondary index 
updated 


"X'80'" Primary index 
updated 


Offset to PSTDATA from 
start of buffer 


Address of DSG portion of 
the JCB 








a 


— 
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PSTBLKNM, PSTDMBNM, and PSTACBNM must be in this 


order and contiguous for the buffer handler 


144 (90) 4 PSTBLKNM 
PSTWABUF iar ese 

148 (94) 2 PSTDMBNM 

150 (26) 1 PSTACBNM 

ro: (97) 1 

pep (98) 4 PSTBYTNM 

156 (9C} 4 PSTDATA 

160 (AQ) 4 PSTBUFFA 


Buffer Handler and Space Management section 


164 (AA) 4, PSTBFUSE 

168 (A8) 4 PSTSUIN 

ee: (AC) 4 PSTPREAR 

176 (BO) #2 PSTSUBNM 

178 (B2) 2 PSTSWI 
PSTHISES 1. 
PSTHDWIP Pe, Ate 
PSTCIOAF Saiende oe eat 
PSTSMRQ ras tee 
PSTPBRQC Wear “ded 

180 (B4) 1 PSTPOSEL 
PSTNOERR age 

181 (BS) 1 

182 (BG) 2 

184 (B8) 4, PSTSAVRE 


Relative block number 
"xX'80'" Indicator that 
buffer is being used as a 
workarea and is not 
associated with an RBA 
DMB number 


ACB number 


Reserved 

RBA or relative record 
number hi-order byte 
contains x'80' if request 
is for HISAM ESDS 

Address of requested data 


Address of buffer prefix 


Address of the buffer 
prefix to be used 


Address of the subpool 
information table to be used 


Beginning address of the 
buffer prefix area for the 
subpool information table used 


Subpool number used during 
this call 


Work space 


"X'80'" HISAM ESDS is 
being processed 


"X'O8'" HD write in 
progress 


"X'O4'" Control interval 
in overflow area full 


"X'O2'" Request made to 
the buffer handler by 
space management 


"X'FF'" Purge buffer 
request completed 


Count for position of use 
chain element 


"X'4O'" No error message 
Reserved 
Reserved 


Work area used by buffer 
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handler when processing a request 


The following fields are used by DL/I OPEN/CLOSE (DLZDLOC0) 
and Space Management (DLZDHDS0O) for VSAM catalog parameter 
list when processing an out-of-space condition for HIDAM data base. 


"PSTSAVRE" area used as 
the VSAM catalog parameter 
list (CTGPL) by DLZGGSPO 
and DLZDLOCO to do locate 


PSTCTGPL Leh! Be ee 


PSTCPLN ae te ere "40" length of CTGPL block 


"1" number of CTGFL 
entries 


PSTCTGNM whale Jace. | 


This area is used by DLZDCI00 for SHOWCAT and GETVCE for FBA support. 


"PSTSAVRE" SHOWCAT work 
area used by space 
management DLZDCIOO 


PSTSWKAR msg! illedesspeg 


"PSTSWKAR+22" location of 
needed data returned by 


PSTSDATA i erm 3 i 


SHOWCAT 

PSTRBAL Suaieises. eee "A™ RBA data length 

PSTVSL Git. wae "6" volume serial number 
length 

PSTSWKL re one "64" length of SHOWCAT 
work area 

PSTVLSR i i Us Sas Ks ee "PSTSWKAR+66" volume 
serial number save area 

PSTSPL Livesets ) ae wed "PSTSWKAR+28" SHOWCAT 
parameter list 

PSTGVPL yas i (I |e "PSTSWKAR+52" GETVCE 
parameter list 

PSTGVWKL as i a ees 52° Lenogtn of GETVCE 
workarea 

224 (EO) 4 PSTRETRE (8) Buffer handler subroutine 


linkage register (R14) 
save area when processing 
a request 
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The following fields are used by OPEN/CLOSE (DLZDLOCO) and 


Buffer Handler statistics 


256 (100) 1 

( 257. (101) 
| 258 (102) 17 
259 (103) 1 

( : 260 (104) 4 


The following fields are used as save areas so that the DMB 


PSTCTGFL 


PSTCTGWK 
PSTCTGL1 
PSTCTGL2 
PotCcricRe 


PSTCFLN 


PSTCWKLN 


PSTCDATL 


PSTNUMRO 
PSTNUMWT 


PSTCLRWT 


PSTIWAIT 


PSTEXPAD 


PSTTSKID 


es 


11171 


1111 


1111 


sip Hs a 


Space Management for VSAM field parameter list when 
processing an out-of-space condition for HIDAM data base. 


las 


are 


1 


ra 


ie bee 


"PSTRETRE" area used as 
the VSAM field parameter 
list (ctgfl) by DLZGGSPO 
and DLZDLOCO to do locate 


"PSTRETRE+24" VSAM catalog 
workarea 


"PSTRETRE+24" catalog 
workarea length 1 


"PSTRETRE+27" catalog 
workarea length 2 


"PSTRETRE+28" VSAM catalog 
return area for high-RBA 
"24" length of CTGFL block 


"8" length of catalog 
workarea 


"4" data length for high-RBA 


Number of blocks read on 
this call 


Number of writes issued on 
this call 


Buffer handler switch 


"X'80'" TIWAIT issued 
during this: call 


"X'4O'" Expad done for 
this I/O operation 


Reserved 


Hashed task ID high-order 
byte binary date low-order 
3 bytes assigned in 
ascending sequence 


ECB can be posted if the task is cancelled while waiting for I/O completion. 


264 (108) 4 
268 (10C) 4 
212 C110) 4 
276 (114) 4 
PST WORK AREAS 
280 (118) 4 
284 (11C) 4 








PSTXPSV1 
PSTXPSV2 
PSTXPSV3 


PSTUIB 


PSTWRK1 


PSTWRK2 





User VSAM savearea address 
EXCPAD return address 
EXCPAD parm list address 


Address of UIB 


Work words for 


buffer handler (DLZDBHOO) 
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prettier ee renter a LE RE TE 


288 
292 
296 
300 
304 
308 


S12 


(120) 
(124) 
(128) 
(12C) 
(130) 
(134) 


(138) 


4 


4 


PSTWRK3 


PSTWRK4 


PSTWRKT 1 


PSTWRKT2 


PSTWRKT3 


PSTWRKT4 


PSTWRKT5 
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and 

data base logger 
work space preserved 
across 

calls 

to the 


buffer handler 


The hi-order byte of PSTWRKT4 is used to pass the following 
function codes to index maintenance : 


OW bcs 


Pa a 


SO: 2Cr5C) 4 PSTWRKD1 
320 (140) 4 PSTWRKD2 
324 (144) 4 PSTWRKD3 
328 (148) 4 PSTWRKD4 
332 (14¢) 4 PSTWRKD5 
336 (150) 4 PSTWRKD6 
340 (154) 4 PSTWRKD/7 
344 (158) 4 PSTCURWA 
348 (15C) 4 PSTDLTWA 
352 (160) 4 PSTDLROM (21 
Data base log section 
436 (1B4) 4 PSTLOGWA 
440 (1B8) 4 PSTLOGQ 
Data base log use of PSTWRK1 
PSTWRK1 
PSTDBLFC 
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"X'O4'" Re-insert index 
"X'O3'" Secondary indices only 
"X'O2'" Primary indices only 


"X'O1'" Both primary and 
secondary indices 


Work space for use 

by 

delete/replace 

field storage manager 


retrieve 


Load/insert and by buffer 
purge 


Current delete work area 


First delete work area 
address 


Retrieve's save and 
maintenance work area 
(Online only) CMF hook 
work area at task 
termination 


Address of work area 
for log O/P 


Address of reuse Q QCB 
in pool 


Physical SDB address 

if new block - low-order 
2 bytes is call count 
high-order byte used for 
function code 


"PSTWRK1" 








Le gd 
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Data base log function codes 
DBLNDXC deg tm 


DBLCMC 


DBLNTCR ~111 


DBLLGDLT ods 


DBLPHYI <r 
DBLPHYD iiss 


DBLPHYR oe 


DBLOOPS Scop iem, . hed 


DBLLASTC bt lees “eae 


DBLFSE1 


DBLFSE2 eens. aloes 


DBLPHYRO 


DBLNEWBL 


Data base log use of PSTWRK2 - PSTWRK4 
chain maintenance - old copy of chain pointer (4 bytes) 
insert/delete - offset and new FSE’S (6 or 12 bytes) 


444 (1BC) 4 PSTRAEND 

448 (1C0) 4 
Partition / Task information 

452 (1C4) 8 PSTPCPGM 

460 CFEC) 8 PSTPCPSB 

468 (1D4) 1 PSTPCT1 


PSTBATCH Wises, 4 


PSTLODU ee 
PSTLODUH bs, Nee 


PSTHISMR cee | 


PSTUST Bid But Ng soi 


PSTUDR Syatea: See are 


"X'S8O0'" Index maintenance call 


"X'OO'" Bits 1-3=0 chain 
maintenance call 


"xX'70'" Counter maintenance 


"X'60'" Delete byte 
maintenance 


"X'40'" Tnsert 
"X'20'" Physical delete 
"X'10'" Replace 


"X'OA'" No data end of 
user call 


"X'O8'" Last change for 
this user call 


"xX'OO'" Bit 5=0 one FSE 
(if bits 1 or 2 on) 


"X'O4'" Two FS's (if bits 
1 or 2 on) 


"X'O2'" Old copy of a 
replace 


"X'O1'" New block log call 


End of root addressable 
area used by space manager 


Reserved 


Application program name 
if batch UDR, ULR or ULU 
DBDNAME 
PSB name 


Partition/task option 


"X'80'" PST is in batch 
partition 


"X'40"" Load utility 
"X'20'" Load HDAM DB 


"X'10'" HISAM data base 
recovery in progress 


"X'O8'" Statistics utility 


"X'O4'" Data base recovery 
utility 
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PSTULU 
PSTUSM 

469 (1D5) f — PSTPCT2 
PSTXCONM 1... .. 
PSTXPRTM .1.. 2... 
PSTCHKP ers 
PSTHLPI 
PSTPLI ee 

470  (1D6) 2 PSTERCOD 

470  (1D6) 1 PSTERCD1 

aa IDT) 1 PSTERCD2 

472 (1D8) 7 PSTERDT1 

479  (1DF) g PSTCNVB 

479 (1DF) 8 PSTERDT2 

487  (1E7) 1 PSTERIND 
PSTDUMPI 1... .... 
PSTCANLI .1.. 

488 (1E8) 72 PSTLIPRM 
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"X'O2'" Data base 
load/unload utility 


Ae OT Security 
maintenance utility 


PGM options/info overlaid 
on every call to batch 
program request handler 


"x'S8O'" Exclude console 
message 


"X'4O'" Exclude printer 
message 


"X'O4'" User CKPT call 
successful 


"X'O2'" Application 
program using HLPI 


"X'O1'" User pgm is PL/I 
Error message codes 

Error message code Sue one 
Error message code byte two 
Variable error message data 


Work area for HD 
randomizing module 


Variable error message data 


Error routine indicator 


"X'80'" Issue dump after 
error message put 


"X'4O'" Tssue cancel after 
error message put 


Area to build user 
parameter list and also 
register save area for MPS 
start and stop calls 


The following labels can be used to address fields in the CALL parameter list 


PSTCCALL 


PSTCPCB 
PSTCIO 


PSTCSSA 


560 (230) 8 PSTPLIPR 


568 (238) 4 PSTNORO 
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"PSTLIPRM" current call 


"PSTLIPRM+4" current PCB 
address 


"PSTLIPRM+8" current I/0 
area address 


"PSTLIPRM+12" current SSA 
address start if call is 
qualified 


PL/I region STXIT 
processor 


Number owned resources 
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572 (23C) 1 PSTQLEV 

é PSTOLRO 
= PSTQLUPD 
PSTQLEXC 

572 (23C) 4 PSTRRDF 

576 (240) 4 PSTRRDL 
580 (244) 4 PSTRPSTA 
584 (248) 12 PSTSAVTR 


Field level descriptor block control fields 


596 (254) 4 PSTFLD 
C _ 600 (258) 4 PSTFLDN 
, 604 (25C) 4 PSTFLDE 
PSTFLDAL 
608 (260) 4 PSTFLDC 


Partial reorganization control fields 


( 612 (264) m PSTPRTIGT 
616 (268) 4 PSTDELTA 
620 (26C) 1 PSTOPEN 
PSTOPEN1 
621 (26D) 3 
( “ 624 (270) 4 PSTCRRBA 
: 628 (274) 4 





Queue request level 
"X'OO'" Read only level 
"X'O4'" Update level 
"X'O8'" Exclusive level 
Pointer to first RRD 
Pointer to last RRD 
Remote PST address (RPST) 
Trace save area used only 
if -OuLDUE. =.CICS/VS 
Start of field level 
descriptor block entries 
Next available fld entry 
FLD area end address+1 


"7128" initial FLD area 
length 


Current FLD entry for this 
level (retrieve) 


Pointer to partial 
reorganization target table 


Partial reorganization 
HDAM RBA block number change 


Flag byte 


"X'4O'" Open for partial 
reorganization 


Reserved 
RBA of current root insert 


Reserved 
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‘Register save area 


Registers are saved Register 14 - Register 12 


640 (280) 72 PSTSV1 
Fig (268). 72 PSTSV2 
784 (310) 72 PSTSV3 
856 (358) 72 PSTSV4 
928 (3A0) 72 PSTSV5 

1000 (3E8) 72 PSTSV6 

1072 (430) 72 PSTSV7 

PSTLNGTH 


5-144 DL/ I DOS/VS Logic Manual, Volume1 


Licensed Material—Property of IBM 


Seven register save 
areas 

required 

Lor 

processing 

DL/I user 

calls 

"*-PST" length of PST 
(See the DL/I DOS/VS 
Diagnostic Guide for 


information on the save 
areas) 




















Name 


DBLCMC 
DBLFSE1 
DBLFSE2 
DBLLASTC 
DBLLGDLT 
DBLNDXC 
DBLNEWBL 
DBLNTCR 
DBLOOPS 
DBLPHYD 
DBLPHYI 
DBLPHYR 
DBLPHYRO 


‘-DLZPST 


PST 
PSTABIND 
PSTACBNM 
PSTACCT 
PSTBATCH 
PSTBDCAL 
PSTBFALT 
PSTBFMPT 
PSTBFUSE 
PSTBKLCT 
PSTBLKNM 
PSTBTMPF 
PSTBUFFA 
PSTBYALT 
PSTBYEND 
PSTBYLCT 
PSTBYTNM 
PSTCANLI 
PSTCCALL 
PSTCDATL 
PSTCFLN 
PSTCHKP 
PSTCIO 


PSTCIOAF 


PSTCLOK 
PSTCLRWT 
PSTCNVB 
PSTCode 1 
PSTCPCB 
PSTCPLN 
PSTCRRBA 
PSTCSSA 
PSTCTGFL 
PSTCTGL1 
PSTCTGL2 
PSTCTGNM 


Cross Reference 


Hex 


Offset 


1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
1B8 
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Name 


PSTCTGPL 
PSTCTGRT 
PSTCTGWK 
PSTCURWA 
PSTCWKLN 
PSTDATA 

PSTDBLFC 
PSTDBPCB 
PSTDCHKP 
PSTDDLET 
PSTDELTA 
PSTDGHN 

PSTDGHNP 
PSTDGHU 

PSTDGN 

PSTDGNP 

PSTDGU 

PSTDISRT 
PSTDLIWA 
PSTDLIWB 
PSTDLIWC 
PSTDLIWD 
PSTDLIWE 
PSTDLIWF 
PSTDLIWO 
PSTDLIW1 
PSTDLIW2 
PSTDLIW3 
PSTDLIW4 
PSTDLIW5 
PSTDLIW6 
PSTDLIW7 
PSTDLIW8 
PSTDLIW9 
PSTDLROM 
PSTDLTWA 
PSTDMBNM 
PSTDREPL 
PSTDSGA 
PSTDUMPI 
PSTENDDA 
PSTEOD 

PSTERASE 
PSTERCD1 
PSTERCD2 
PSTERCOD 
PSTERDT 1 
PSTERDT2 
PSTERIND 
PSTERMSP 


Hex 


B8 
EO 


Hex 


Offset Value 


~ 
\ 


B8 
FC 
F8 
08 


OTS 


80 
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Cross Reference 


Name 


PSTEXPAD 
PSTFBSPC 
PSTFLD 
PSTFLDAL 
PSTFLDC 
PSTFLDE 
PSTFLDN 
PSTFNCTN 
PSTFRBLK 
PSTFRSPC 
PSTGBSPC 
PSTGETNX 
PSTGTDS 
PSTGTRAP 
PSTGTSPC 
PSTGVPL 
PSTGVWKL 
PSTHDWIP 
PSTHISES 
PSTHISMR 
PSTHLPI 
PSTINLD 
PSTINTNT 
PSTIOERR 
PSTIOPRM 
PSTIWAIT 
PSTLIPRM 
PSTLNGTH 
PSTLODU 
PSTLODUH 
PSTLOGIP 
PSTLOGO 
PSTLOGWA 
PSTMI 
PSTMSPUT 
PSTNOBFA 
PSTNOERR 
PSTNORO 
PSTNOSPC 
PSTNOTFD 
PSTNPLSP 
PSTNUMRO 
PSTNUMWT 
PSTNWBLK 
PSTOCALL 
PSTOCBAD 
PSTOCCLS 
PSTOCDCB 
PSTOCDMB 
PSTOCDSG 


Hex 


Offset 


102 

88 
254 
25 
260 
25C 


Hex 
Value 


40 
O04 


80 


Name 


PSTOCLD 
PSTOCOPN 
PSTOCPCB 
PSTOFFST 
PSTOLTW 
PSTOPEN 
PSTOPEN1 
PSTPBROQC 
PSTPCPGM 
PSTPCPSB 
PSTPCT1 
PSTPCT2 
PSTPGUSR 
PSTPIPIU 
PSTPISIU 
PSTPLI 
PSTPLIPR 
PSTPOSEL 
PSTPREAD 
PSTPREAR 
PSTPRTGT 
PSTPRVWT 
PSTPSB 
PSTPUTKY 
PSTQDEQ 
PSTOENQ 
PSTOLEV 
PSTOLEXC 
PSTOLRO 
PSTQLUPD 
PSTOPUR 
PSTOQRBDC 
PSTORDDL 
PSTORNSE 
PSTQROOP 
PSTORWR 
PSTOVER 
PSTRAEND 
PSTRBAL 
PSTRDERR 
PSTRETRE 
PSTRPSTA 
PSTRRDF 
PSTRRDL 
PSTRTCDE 
PSTSABND 
PSTSAVRE 
PSTSAVTR 
PSTSCALL 
PSTSCDAD 
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Hex 


Offset 


Hex 
Value 


04 


40 


BE, 


20 


80 
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Name 


PSTSCHED 
PSTSDATA 
PSTSEG 
PSTSEGL 
PSTSMRQ 
PSTSPL 
PSTSTLBG 
PSTSTLEQ 
PSTSTLN 
PSTSUBNM 
PSTSUIN 
PSTSV1 
PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 
PSTSWI 
PSTSWKAR 
PSTSWKL 
PSTTABND 
PSTTSKID 
PSTUDR 
PSTUIB 
PSTULU 
PSTUSER 
PSTUSM 
PSTUST 
PSTVLSR 
PSTVSL 
PSTWABUF 


PSTWRITE 


PSTWRKD 1 
PSTWRKD2 
PSTWRKD3 
PSTWRKD4 
PSTWRKD5 
PSTWRKD6 
PSTWRKD/7 
PSTWRKT 1 
PSTWRKT2 
PSTWRKT3 
PSTWRKT4 
PSTWRKT5 
PSTWRK1 

PSTWRK2 

PSTWRK3 

PSTWRK4 

PSTWROSI 


Cross Reference 


Hex 


Offset 
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20 


Name 


PSTXCONM 
PSTXMDLT 
PSTXMISR 
PSTXMRPL 
PSTXMUNL 
PSTXPRTM 
PSTXPSV1 
PSTXPSV2 
PSTXPSV3 


Hex 


Offset. 


DS 
88 
88 
88 
88 

1D5 

108 

10C 

VAG 


Hex 
Value 


80 
AO 
A2 
Al 
A3 
40 
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QWA - Queueing Facility Work Area 





DSECT Name: DLZQWA 


The QWA contains information used by the queuing facility module to build control blocks and RDB queue headers. 
It also contains information used to locate the proper RDB for a particular resource ID. 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0). * 0 DLZQWA 
0 (0) 36 QWA 
0 (0) 0 Module identifier 


Page pointers for free block management 





0 (0) 4 QWAFPP First page pointer 
we 
4 (4) 4 QWACPP Current page pointer flag ( \ 
bytes ae, 
8 (8) 1 QWAFLG1 First flag byte 
QWADDDF eacake oo ere] "X'O1'" Do deadlock 
detection 
QWANPOF ete “ieee ba "X'O2'" New prime owner 
exists 
9 (9) 1 QWAFLG2 Second flag byte 
10 (A) 1 QWAFLG3 Third flag byte 
Ea (B) 1 QWAFLG4 Fourth flag byte work 
fields 
12 (C) 4 QWAWFLD Work field RDB queue area 
16 (10) 4 QWANOQH Number of queue heads 
20 (14) 4 QWAHMLT Hashing multiplier 
24 (18) Var QWARDBOH RDB chain queue headers 7 
of four bytes each L | 
| ‘i wy 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZQWA 0 
QWA 0 
QWACPP 4 
QWADDDF 8 01 
- QWAFLG1 8 
QWAFLG2 9 
QWAFLG3 A 
QWAFLG4 B 
QWAFPP 0 
QWAHMLT 14 
QWANOQH 10 
QWANPOF 8 02 
QWARDBQH 18 
QWAWFLD C 
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RDB - Resource Descriptor Block 
DSECT Name: DLZRDB 


The RDB (Resource Descriptor Block) is used to describe a resource for which enqueues are outstanding. In 
addition, it acts as an anchor for the chains of RRDs (Resource Request Descriptors) that describe the current queue 
requests for the resource. For more information, refer to ''DLZQUEFO -Queueing Facility" in Section 3 of this 
book. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) O DLZRDB 
0 (0) 24 RDB 
O (0) 1 RDBPOID Primary owner PST prefix 
number 
O (0) 4 RDBRDBF RDB forward chain pointer 
4 (4) 1 RDBUOID Update owner PSTpst prefix 
number 
4 (4) 4 RDBRDBB RDB backward chain pointer 
8 (8) 1 RDBMAXL Top enqueue level of current 
owners 
8 (8) 4 RDBRRDF Pointer to first RRD 
12 (C) 1 RDBNOWN Current number of owners 
12 (C) 4 RDBRRDL Pointer to last RRD 
16 (10) 7 RDBRID Resource ID 
23 (17) 1 Reserved 
RDBLEN Sroth Beeaep "*-RDB" Length of RDB 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZRDB 0 
RDB 0 
RDBLEN 17 18 
RDBMAXL 8 
RDBNOWN C 
RDBPOID 0 
RDBRDBB 4 
RDBRDBF @ 
RDBRID 10 
RDBRRDF 8 
RDBRRDL C 
RDBUOID 4 
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RGT - Range Table 

| - € > 
DSECT Name: DLZPRRGT « / 
This DSECT describes one range of keys or blocks to be reorganized. The range table is part of the common area. 


There are ten RGT entries available. They are completed by parameter analysis from data supplied by the user in 
control cards. This control block is used by the partial reorganization utility. | 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
@) (0) 0 RGT 
0 (0) 4 RGTSTART 
O (0) 4 RGTFBKLO First block in range to be 
reorganized 
4 (4) 4 RGTFBKHI Last block in range to be 
reorganized yor 
8 (8) 4 RGTFTLO1 First block in DSG 1 for KY 
Ke reload to use 
1 (C) 4 RGTFTHI 1 Last block in DSG 1 for 
reload to use 
16 (10) 4 RGTFTLO2 | Same for DSG 2 
20 (14) 4 RGTFTHI2 ~ Same for DSG 2 
24 = (18) 4 RGTFTLO3 a 
28 (1C) 4 RGTETHI3 Wo. 
32 (20) 4 RGTFTLO4 
36 (24) 4 RGTFTHI4 
40 (28) 44 RGTFTLO5 
44 C20) 4 RGTFTHI5 
48 (30) 4 RGTFTLO6 
fo 
5 € 
Z (34) 4 RGTFTHI6 a, 
56 (38) 4 RGTFTLO/7 
60 (3C) 4 RGTFTHI7 
64 (40) 4 RGTFTLO8 
68 (44) 4 RGTFTHI8 
72 (48) 4 RGTFTLOQ 
716 (4C) 4 RGTFTHI9 
80 (50) 4 RGTFTL10 First block in DSG 10 for ' 
reload to use 
84 (54) 4 -RGTFTH10 Last block in DSG 10 for 
| reload to use 





88 (58) 1 RGTKIND1 be, Key range format indicator 
| 1 (C or X) 
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Offsets Field/Flag Flag Code 
oO (Dec) (Hex) Length Name (Bit) Description 
( 89 (59) 1 RGTKIND2 Key range format indicator 
2: JG: core x) 
90 (5A) 2 Reserved 
RGTFLEN peels! 21s "*-RGTSTART" length of a 
RGT entry 
RGTKEYAR Mode al bet Woe 


Cross Reference 


Hex Hex 
Name Offset Value 
RGT 0 
RGTFBKHI 4 
= RGTFBKLO 0 
( RGTFLEN 5A 2) 
a: RGTFTHI1 G 
ae RGTFTHI2 14 
RGTFTHI3 ke 
RGTFTHI4 24 
RGTFTHI5 IC 
RGTFTHI6 34 
RGTFTHI7 3C 
RGTFTHI8 Ad 
RGTFTHI9 4C 
RGTFTH10 54 
RGTFTLO1 8 
a RGTFTLO2 10 
( | RGTFTLO3 18 
RGTFTLO4 20 
RGTFTLOS 28 
RGTFTLO6 30 
RGTFTLO7 38 
RGTFTLO8 40 
RGTFTLOQ 48 
RGTFTL10 50 
RGTKEYAR 5A 5G 
RGTKIND1 58 
RGTKIND2 59 
( RGTSTART 0 
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RIB - Remote Interface Block 


DSECT Name: DLZRIB 
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This DSECT describes remote interface block fields. The RIB is used by DL/I for CICS/VS intersystem 
communications (ISC) support. It defines fields passed between CICS/VS and DL/I. 


- (Dec) (Hex) Length 


Offsets 
0 (0) 
0 (0) 
0 (0) 
4 (4) 
8 (8) 
12 (C) 
16 (10) 
18 (12) 
19 (13) 
20 (14) 
21 (15) 
22 (16) 


0 


4 


& fp fF BS. 


1 


1 


1 


Field/Flag Flag Code 
Name (Bit) 





DLZRIB 


RIB 


RIBPCBAL 
RIBCHAIN 
RIBIOAWK 


RIBUPPER 


RIBINDEX 


RIBISC 

RIBPCBM ieee 
RIBBUFAL aa ear 
RIBCHKP rae 


RIBISCO 
RIBSYNC ere 


RIBHLPI esate 
RIBISCI 

RIBFUNC War sis 
RIBCALL a lees 
RIBLNKNA ..1. 
RIBLNKSH ie gel 
RIBNOSTT erate. Nese 


RIBFCTR 


RIBDLTR 


5-152. DL/I DOS/VS Logic Manual, Volume1 


Description 


ISC remote interface block 
this control block follows 
immediately after the RPST 
Local PCB address list 
Remote PSB storage chain 
Local PSB I/O work area 


Highest address of caller 
partition 


PCB index number 


ISC scheduling duration 
flags 


"X'80'" PCBM scheduling 
call issued 


"xX'4GO'" RIBIOAWK buffer 
allocated 


Mx 20)" DIZ checkpoine 
call in progress 


ISC outbound flags 
"X'80'" Sync point issued 
"X'4O'" DL/I HLPI command 
with SSA and I/O lengths 
provided 


ISC inbound flags 


"X'80'" Function string 
invalid 


"xX'4O'" User call parameter 
list invalid 


"X¥'20'" Link does not 
exist 


ex LO? Lane. Ls Out -O£ 
service 


"X'O8'" CICS/VS not counting 
DL/I calls 


ISC response code 


Additional response 
information 











Licensed Material—Property of IBM 


Offsets 
(Dec) (Hex) Length 


( | 5S L1Gs 1 


23 (17) 1 
24 (18) 4 
28 (1C) 4 
Cross Reference 
( \ Name Offset Value 
DLZRIB 0 
RIB 0 
RIBBUFAL 12 
RIBCALL 14 
RIBCHAIN 4 
RIBCHKP 12 
RIBDLTR 16 
RIBFCTR 15 
RIBFUNC i 
RIBHLPI 13 
a RIBINDEX 10 
( RIBIOAWK 8 
RIBIOLEN 18 
RIBISC 12 
RIBISCI 14 
RIBISCO 13 
RIBLEN 1C 
RIBLNKNA Let 
RIBLNKSH 14 
RIBNOSTT ee 
RIBPCBAL 0 
RIBPCBM 12 
co RIBRSET 16 
( RIBSYNC 13 
- RIBUPPER C 





Field/Flag 
Name 


RIBDLTR 


RIBRSET 


RIBIOLEN 


RIBLEN 


Hex 


lue 


40 


20 


80 
40 





Flag Code 
(Bit) 


Description 


Additional response 
information 


"*-RIBISCO" length of 
function dependent flags 


Reserved 


I/O area length for HLPI 
data base command 


Length always fullword 
multiple 


"*-RIB" length of RIB 
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RPCB - Remote PCB 


DSECT Name: DLZRPCB 
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This DSECT describes remote PCB fields. The RPCB is an extension of PCB local storage used by DL/I for 
CICS/VS intersystem communication (ISC) support. RPCBs exist only while a task is scheduled for a data base 
that is located on some other system. In this case, the address of the RPCB is located four bytes ahead of the PCB. 


Offsets Field/Flag 
(Dec) (Hex) Length Name 
0 (0) 0 DLZRPCB 
0 (0) 4 RPCB 
0 (0) 4 RPCBMIOS 
4 (4) 4 RPCBSEGL 
8 (8) 1 RPCBFlag 
RPCBPATH 
9 (9) 3 
12 (C) 4 
RPCBLEN 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZRPCB 0 
RPCB 0 
RPCBF lag 8 
RPCBLEN C OC 
RPCBMIOS 0 
RPCBPATH 8 80 
RPCBSEGL 4 
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Flag Code 
(Bit) 





i Eee 


Description 


Start of ISC remote PCB 
Max PCB I/O area size 
Length of last retrieve 
Flag byte 


"X'80'" Previous get hold 
path call 


Reserved 


Length always fullword 
multiple 


"#-RPCB" length of RPCB 
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RPDIR - Remote PSB Directory 
( DSECT Name: DLZRPDIR 


This DSECT describes remote PSB directory fields. The RPDIR is an extension of the PDIR. It contains 
information used by DL/I for CICS/VS intersystem communication (ISC) support. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DLZRPDIR 
@) (0) 4 RPDIR Remote PSB directory start 
0 (0) 4 RPDIRSYS System name on which 
remote PSB is defined 
4 (4) 8 RPDIRPSB Name of PSB to use on 
remote system 
eo 12 (C) 2 RPDIRLOC Optional local PSB PDIR 
F. pointer 
14 (E) 1 RPDIRFLG Flag byte 
4 
RPDIRORD See. aww | "x'0O01'" Local PCBS follow 
remote 
15 (F) 1 Reserved 
16 (10) 4 Length is fullword 
multiple 
( RPDIRLEN ...1.....  "*-RPDIR" length of RPDIR 


--Cross Reference 


Hex _—_— Hex 
Name Offset Value 
DLZRPDIR 0 
RPDIR 0 
RPDIRFLG E 
RPDIRLEN 10 0 
ro. RPDIRLOC C 
( : RPDIRORD - _ 
oe. RPDIRPSB 4 
RPDIRSYS 0 
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RPST - Remote PST 





DSECT Name: DLZRPST | rl | 
| | ww 
This DSECT describes remote PST fields. The RPST is an extension of task local storage used by DLZODP for 
CICS/VS intersystem communication (ISC) support. 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) O DLZRPST 
0 (0) 4 RPST Start of DSECT 
0 (QO) 4 RPSTISC1 ISC parameter 1 
4 (4) 4 RPSTISC2 ISC parameter 2 
8 (8) 4 RPSTISC3 ISC parameter 3 
12 (C) 4 RPSTISC4 ISC parameter 4 fo 
( 
16 (10) 4 RPSTISC5 ISC parameter 5 ae 4 
20 (14) 4 RPSTISC6 ISC parameter 6 
24 (18) 1 RPSTATUS Flag byte 
22. C9) 3 RPSTACTA Program's ACT entry 
address 
28 ~=(1C) 4 RPSTRPSB Remote PSB PDIR entry 
address | ex 
32 (20) 4 RPSTRPCB Remote PSB A(PCB address ae 
list) | 
36 (24) 4 RPSTXPSB Local PSB PDIR entry address 
40 (28) 4 RPSTXPCB Local PSB A(PCB address 
list) 
44 (2C) 4 RPSTACCT Remote call statistics 
44 (2C) 4 RPSTGU Number of GU calls issued 
48 (30) 4 RPSTGN : Number of GN calls issued 
52 (34) 4 RPSTGNP Number of GNP calls issued 
56 (38) 4 RPSTGHU Number of GHU calls issued 
60 ~~ (3C) 4 RPSTGHN Number of GHN calls issued 
64 (40) 4 RPSTGHNP Number of GHNP calls 
issued 
68 (44) 4 RPSTISRT Number of ISRT calls 
issued 
72 (48) 4 RPSTDLET Number of DLET calls 
issued 











Offsets 
(Dec) (Hex) Length 
76 (4C) 4 
80 (50) 4 
84 (54) 4 


Name 


DLZRPST 
RPST 
RPSTACCT 
RPSTACTA 
RPSTATUS 
RPSTCHKP 
RPSTDLET 
RPSTGHN 
RPSTGHNP 
RPSTGHU 
RPSTGN 
RPSTGNP 
RPSTGU 
RPSTISC1 
RPSTISC2 
RPSTISC3 
RPSTISC4 


RPSTISC5 


RPSTISC6 
RPSTISRT 
RPSTLEN 

RPSTREPL 
RPSTRPCB 
RPSTRPSB 
RPSTSTLN 
RPSTXPCB 
RPSTXPSB 


Cross Reference 


Hex 


Offset 
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Field/Flag 


Name 


RPSTREPL 


RPSTCHKP 


RPSTSTLN 


RPSTLEN 


Hex 
Value 


54 


28 


Flag Code 





Description 


Number of REPL calls 
issued 


Number of CHKP calls 
issued 


"*-RPSTACCT" Length of 
remote statistics section 


Length always fullword 
multiple 


"*—-RPST" Length of RPST 
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RRD - Resource Request Descriptor 
DSECT Name: DLZRRD 
The RRD (Resource Request Descriptor) is used to maintain a record of all the requests by one task for a particular 


_ resource and their current status. For more information, refer to ''DLZQUEFO - Queueing Facility" in section 3 of 
this book. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DLZRRD 
0 (0) 24 RRD 
0 (0) 1 RRDNQRO Number of read-only 
ownerships for task 
O (O) 4 RRDPSTOF Next RRD for task 
4 (4) 1 RRDNQUP Number of update 
ownerships for task 
4 (4) 4 RRDPSTQB Prior RRD for task 
8 (8) 1 RRDNQEX Number of exclusive 
ownerships for task 
8 (8) 4 RRDRDBQF Next RRD for resource 
2 (C) 1 RRDMAXL Current top enqueue level 
for resource by task 
12 Cg) 4 RRDRDBQB | Prior RRD for resource 
16 (10) 1 RRDFLAG | Flag byte 
RRDOWNF ie dren: eae | "X'O1'" Task owns resource 
RRDWAITF Eo ce Br ae ds "X'O2'" Task is waiting 
for resource 
RRDPOWNF' ates. Oecd "X'O4'" Task is prime owner 
16 (10) 4 RRDRDBP RDB for resource 
20. (14) 4 RRDPSTP PST for task 
RRDLEN meee (men eeereer "*-RRD" length of RRD 
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Cross Reference 


( | Hex — Hex 

i Name Offset Value 
DLZRRD @) 
RRD 0 
RRDF LAG 10 
RRDLEN 14 18 
RRDMAXL C . 
RRDNQEX 8 
RRDNQRO 0 
RRDNQUP 4 
RRDOWNF 10 01 
RRDPOWNF 10 O04 
RRDPSTP 14 
RRDPSTQB 4 
RRDPSTOF 0 
RRDRDBP 10 
RRDRDBOB Cc 
RRDRDBQF 8 

( RRDWAILTF 10 02 
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SBIF - Subpool Information Table 


DSECT Name: DLZSBIF 





The subpool information table is described as part of the general structure and description of DL/I buffer pool 
control blocks. There is one subpool information table for each subpool allocated. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 SUBINFTA ( 
0 (0) 1 SUBNOFI PST prefix number of first 
task in chain for enqueue 
subpool 
1 CH 1 SUBNOLA PST prefix number of last 
task in chain for enqueue 
subpool 
2 (2) 1 SUBBFNO Number of buffers in this — 
subpool 
aed 
3 (3) 1 SUBBFHD HDBFR indicator 
SUBFRSV Wiens sac oes "X'80'" DMB assigned to 
this subpool by HDBFR 
parameter 
SUBDUMP © Sie <taneeiste "X'40'" Buffers associated 
with subpool dumped 
4 (4) 40 SUBUSCHA | Beginning of the use chain 
4 (4) 4 _ SUBUCPRE Accumulated number of 
buffers in preceding 
subpools 
8 (8) 4 SUBUCHAI (8) Buffer use chain 
40 (28) 4 SUBUCSUF (Not used in DL/I DOS/VS) 
44 (xe) 1 SUBBFSIZ Size of buffers in this 
subpool: 
X'O1' = 512 bytes 24 | 
X'02' = 1024 bytes fo” 
X'03' = 1536 bytes . ot 7 
X'O4' = 2048 bytes ced 
X'05' = 2560 BYTES 
X'06' = 3072 BYTES 
X'07' = 3584 bytes 
X'O08' = 4096 bytes 
45 (2D) 1 SUBDMBCT Number of DMBs assigned 
SUBLEN Rea ae a ee "*-SUBINFTA" length of the 


subpool information table 
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Cross Reference 


° Hex Hex 
ke Name Offset Value 


SUBBFHD 
SUBBFNO 
SUBBFSIZ 
SUBDMBCT 
SUBDUMP 
SUBFRSV 
SUBINFTA 
SUBLEN 
SUBNOQFI 
SUBNQLA 
SUBUCHAI 
SUBUCPRE 
SUBUCSUF 
SUBUSCHA 


NO NO 


NO 
FoOFWMO-DDWDWWOANW 


40 


2E 


iS) 
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SCD - System Contents Directory 





DSECT Name: DLZSCD rf y 
The DL/I SCD (System Contents Directory) is produced during DL/I system definition for online CICS/VS-DL/1. 
The SCD is preassembled as part of the DL/I nucleus in the batch DL/I system. The SCD contains major entry 
pointers for all DL/I facilities. 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 DLZSCD DOS/DLI SCD dummy 
section 
0 (0) 96 CPYRITE Reserved for copyright 
information 
System contents directory 
: aaa 
96 (60) 8 SCD Start of addressable SCD a \ 
| — 


System configuration section 





96 (60) 1 SCDDLIV DL/I version number 
97 (61) 1 SCDDLIM DL/I modification level 
98 (62) 4 SCDDATE System date-Julian 
102 (66) 2 SCDMXTSK DL/I max task count-online 
104 (68) 2 SCDCMXT DL/I current maximum 
task-online 
106 (6A) 2 SCDATSKC Active DL/I task counter 
online 
108 (6C) 4 SCDLOWER Partition lower boundary 
address pointer to 
addressable part of the 
SCD (batch only) 
112 (70) 4 SCDUPPER Partition upper boundary - 
address a ~S 
\ A a 
116 (74) 4 SCDNAVID Next available task ID S 
120 (78) 4 SCDLOWID Lowest task ID 
124 (7C) 4 SCDCOMRG COMREG address 
128 (80) 4 Reserved 


Action module entry point addresses 


132 (84) 4 SCDPRHED 


136 (88) 4 SCDDDBHO 


140 (8C) 4 SCDDLIRE 





Entry point of program 
reguest handler 

(Batch DLZPRHBO, 
Online DLZPRHOO ) 


Entry point of buffer 
handler (DLZDBHOO) 


Entry point of retrieve 
(DLZDLROO) 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 





Tal 
i 








144 


148 


152 


156 


160 


164 


168 


172 


172 


176 


180 


184 


188 


132 


(90) 


(94) 


(A8) 


(AC) 


(AC) 


(BO) 


(B4) 


(B8) 


(BC) 


(CO) 


4 


SCDDLICT 


SCDDLARE 


SCDDBLNT 


SCDDLIDR 


SCDDLIIN 


SCDDHDSO 


SCDDXMTO 


SCDDLICL 


SCDDSEHO 


SCDQUEFO 


SCDQFSCD 


SCDQFJRN 


SCDQUEFW 


SCDCPY 10 


SCDIWAIT 


SCDERRMS 


Entry point of call 
analyzer (DLZDLAOO) 


"32" offset to entry point 
on return to call analyzer 


Entry point of data base 
log module (DLZRDBLO) 

= E.P. of log 
initialization until after 
initialization 


Entry point of 
delete/replace (DLZDLDOO) 


Entry point of load/insert 
for retrieve (DLZDDLEO) 


Entry point to space 
management (DLZDHDSO) 


Entry point of index 
maintenance (DLZDXMTO) 


Entry point of open/close 
(DLZDLOCO) 


Entry point of routine 
to create work files for 
batch only (DLZDSEHO) 


Entry point of enqueue/ 
dequeue module for program 
isolation (online only) 
(DLZQUEFO) 


"4" displacement to SCD 
address field in DLZQUEFO 


"8" displacement to JRNAD 
exit address in DLZQUEFO 


Enqueue/dequeue work area 


Entry point for field level 
sensitivity expansion 
routine (DLZCPY10) 


Reserved 


Batch = ENTRY POINT of 
DLZIWALT 

Online = address of branch 
table 1st entry = entry 
point 

DLZOWAIT 2nd entry = entry 
point : 
DLZCMFHK 


Entry point of error 
message 

routine (Batch = ERRORMSG, 
Online =DLZERMSG) 
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Offsets _ Field/Flag Flag Code | 
(Dec) (Hex) Length Name (Bit) Description 
196 (C4) 4 SCDASE Entry point of online task fi a 
: Schedule routine (DLZSCHDL) Ly 
200 (C8) 4 SCDABEND _ Entry point of DL/I ABEND 
routine 
(Batch = DLZABEND online = 
DLZABNDO ) 
204 (CC) 4 SCDTKTRM Entry point of on-line task 
termination for program 
request handler (DLZTKTRM) 
208 (DO) 4 SCDSTROO Entry point of FLD storage 
manager (Batch = DLZSTRBO 
Online = DLZSTROO) 
212 (D4) 4 Reserved 
System control block section eo 5 
KY 
SCDDBFPL Wet Anes < "*" label for buffer i. 
| handler 
216 (D8) 1 SCDBFPL © Number of buffer sub-pools 
24.7 (D9) S SCDDBFA Address of buffer pool 
control block prefix 
(DLZBFPL) 
220 (DC) 4 SCDDLIPS | Address of PSB directory © 
(DLZPDIR) | 
224 (EO) 2 SCDDLIPL Length of PDIR entries 
226 (E2) 2 SCDDLIPN Number of PDIR entries 
228 (E4) 4 SCDDLIDM Address of DMB directory 
(DLZDDIR) 
232 (E8) 2 SCDDLIDL Length of DDIR entries 
234 (EA) 2 SCDDLIDN Number of DDIR entries 
236 (EC) 4 SCDPPSTS Address of PST prefix a \ 
: entries (DLZPPST) NL” 
240 (FO) 2 SCDPPSTL Length of PPST entries 
242 (F2) 2 SCDPPSTN Number of PPST entries 
244 (F4) 4 SCDPPAF Online forward PST prefix 
active pointer 
SCDUSAVE WACK! Sieg hte Je "SCDPPAF" address of save 
area passed to user by 
DL/I batch initialization 
for PL/I high level 
language debugging 
SCDFLPC ally ts os pera era "SCDUSAVE" flag byte for 
: | HLL debugging 
SCDLIPLI ee ee ee "X¥'80'" O = in DL/I code 


or non PL/I language 
1 = in PL/I code 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
( SCDFLSAV Pt rae "Xt YO! " Batch STXIT PC 
a savearea 
O = in DL/I storage 
1 = in user storage 
248 (F8) SCDPPAB Online backward PST prefix 
| active pointer 
252 (FC) SCDPPFF Online forward PST prefix 
. free pointer (DLZPPSTF) 
256 (100) SCDPPFB Online backward PST prefix 
free pointer (DLZPPSTE) 
260 (104) 2 SCDPSTLN Length of PST 
262 (106) 2 SCDWAIT Reserved 


264 £=(108) 4 SCDACTBA Address of online 


> application program 
eo control table (DLZACTBA) 


268 (10C) 4 SCDCDTA Address of current online 
dispatched task's TCA 
272 (110) 4 SCDDLIS A(user TCA) of first 
online task suspended for 
max task 
276 (114) 4 SCDDLIUP Address of batch DL/I 
upper boundary 
( ; 276 (114) SCDCSABA "SCDDLIUP" address of 
bac online CICS/VS CSA 
280 (118) 2 SCDTKCNT Reserved 
282 (11A) 2 SCDSPCNT Count of suspended tasks 
due to maximum task 
284 (11C) 1 SCDSIND System indicator 
SCDMTI Wlerite parece "X'80'" DL/I maximum task 
( : indicator 
a SCDCMTI le. ....  "X'40'" DL/I current 
maximum task indicator 
SCDDELT pols "X'20'" On-line indicator 
for PSB delete sensitivity 
SCDUPD = "X'10'" On-line indicator 
some PSB has update 
sensitivity 
SCDTWFI Sales. baat "X'08'" Task waiting for 
| segment intent 
SCDHLRE Sjetct. pete’ "X'O8'" HLL re- entry 
indicator STXIT 
SCDNDMP Sev eeas eee "X'O4'" No dump at ABEND 
SCDNLOGI beaten saxer ies "X'O2'" No data base 





logging to be done. 
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Offsets 
(Dec) (Hex) Length 
285 (11D) 1 
286 (11E) Z 
288 (120) 4 
292 (124) 4 
296 (128) 4 
300 (12C) 4 
304 (130) 1 
305 (131) 1 
306 (132) 2 
308 (134) 4 


Data base change log section 


312 (138) 4 


Field/Flag Flag Code 





Name (Bit) 
SCDNABND testa tes. «eee 
SCDNJNL BR eeia,. Medword | 
SCDSIND2 


SCDSYSAB__—sq4i2..... 


SCDSYACT i eae eee 


SCDSYWAT eee NS? sisi Seen 


SCDRLRST iho 
SCDRELOD epg? eee 


SCDRLABN eae: oat lias 
SCDSYINT » sete ~Sd ibe 
SCDSOPLG See, Gicle| 


SCDNTWC 


SCDABSAV 
SCDLSTAD 
SCDMPCPT 


SCDEXTBA 
SCDDBMPS 


SCDXECB ese 
SCDPI oe eee 


SCDRPSB goats 


SCDPDCA 


SCDREENT 
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Description 


"y'O1'" Batch no STXIT 
abend to be issued 


"x'O01'" Online no CICS/VS 
journal in use 


System flags 


"X'80'" System ABEND 
on-line 


"X'4O'" System task active 


"X'20'" System task 
waiting 


"X'10'" HD reload restart 
"X'O8'" HD reload utility 
"X'O4'" HD reload or 
reload/restart abend is in 
process 


"xX'O2'" Initialization bit 


"X'O1'" Open records 
written to CICS/VS journal 


Count of suspended tasks 
due to scheduling intent 
conflict 


Pointer to pseudo-ABEND 
save area (DLZABSAV) 


Address of CICS/VS interface 


address list (DFHDLIAL) 


Address of MPC partition 
table 


Pointer to SCD extension 
Flag byte 


"X'80'" XECBs defined by 
MPC 


"X'4O'" Program isolation 
active 


"X'20'" Remote PSB defined 
Reserved 
Reserved 


Address of problem 
determination control area 


Entry point of 
log write only 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
( 316 (13C) 4 SCDDBLFW Entry point of log 
is force write 
320 (140) 4 SCDDBLCL Entry point of log 
close routine 
324 (144) 4 SCDDBLAS Entry point of 
asynchronous log 
328 (148) 4 SCDDBLSV Entry point of log 
Save area 
332 (14C) 4 SCDDBLWO Entry point of 
write log open record 
336 (150) 4 SCDCWRK Address of DB log 
work area 
-_ 340 (154) 2 SCDCWRKL Length of DB log work 
( 7 area 
ae 342 (156) 2 SCDSEQ DB log sequence number 
344 (158) 2 SCDREPLN Length of DB log prefix 
346 (15A) 1 SCDDBLOP Data base log option byte 
SCDDBLO "X'80'" Data base log is 
open 
| SCDDBLOR "X'4O'" Data base log open 
( required 
Loe? SCDDBLTD "X'20'" Disk logging used 
SCDDBLD2 "X'10'" Two disk extents 
used 
SCDDBLSP "X'O8'" Pause before 
extent switch 
SCDDBLCJ "X'O4'" CICS/VS journal in 
use 
(_ SCDDBASL "Y'Q02'" Data base 
er asynchronous log required 
347 (15B) 3 SCDLOCO3 Current log count 
347 (15B) 1 First byte of log count 
348 (15C) 2 SCDLOCOU Last two bytes of log 
count 
350 (15E) 2 Reserved 
352 (160) 4 SCDBKWRK Backout log workarea 
| pointer D 
Trace section 
356 (164) 4 SCDTRACE Entry point of trace 
module if present 
360 (168) 8 SCDTRCNM Name of trace module 
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Offsets Field/Flag Flag Code 
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"*-DLZSCD" length of SCD 





(Dec) (Hex) Length Name (Bit) Description 
368 (170) 1 SCDTRFL1 Trace option byte 1 | 
SCDTUSER "xX'80'" User call 
interface 
SCDTAMOD "xX'4O0'" Action module 
trace 
SCDTRETR "X'20'" Retrieve (for get 
calls) 
SCDTCPOS "X'10'" Current position | 
information 
SCDTSEGM "xX'O8'" (Not used in DL/I 
DOS/VS) 
SCDTVSAM "xX'O4'" VSAM interface 
SCDTBHCL "xX'02'" Buffer handler a, 
interface \ j 
ee 
SCDTINDX "X'O1'" Requests to index 
maintenance | 
369 (171) SCDTRFL2 Trace option byte 2 
SCDTOLBH "X'8O'" Online trace 
SCDTPITR "X'4O0'" Program isolation 
trace ' 
Mo 
370 (172) Reserved (4 
ay 
Statistics section 
372 (174) SCDTSKCT Total number of PSB 
scheduling calls 
380 (17C) SCDDLOCT Program isolation deadlock 
occurrence count 
384 (180) SCDCMTCT Number of times at current 
max task nos 
388 (184) SCDPDUP Number of duplicate PSBs wy 
created 
392 (188) SCDPATCH DL/I patch area 
SCDLNGTH 











Name 


CPYRITE 
DLZSCD 
SCD 
SCDABEND 
SCDABSAV 
SCDACTBA 
SCDASE 
SCDATSKC 
SCDBFPL 
SCDBKWRK 
SCDCDTA 
SCDCMTCT 
SCDCMTI 
SCDCMXT 
SCDCOMRG 
SCDCPY 10 
SCDCSABA 
SCDCWRK 
SCDCWRKL 
SCDDATE 
SCDDBASL 
SCDDBFA 
SCDDBFPL 
SCDDBLAS 
SCDDBLCJ 
SCDDBLCL 
SCDDBLD2 
SCDDBLFW 
SCDDBLNT 
SCDDBLO 
SCDDBLOP 
SCDDBLOR 
SCDDBLSP 
SCDDBLSV 
SCDDBLTD 
SCDDBLWO 
SCDDBMPS 
SCDDDBHO 
SCDDELT 
SCDDHDSO 
SCDDLARE 
SCDDLICL 
SCDDLICT 
SCDDLIDL 
SCDDLIDM 
SCDDLIDN 
SCDDLIDR 
SCDDLIIN 
SCDDLIM 
SCDDLIPL 


Cross Reference 


Hex 


Offset 
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Hex 
Value 


40 


0114 


02 
D8 
O04 


10 


80 


40 
08 


20 


20 


20 


Name 


SCDDLIPN 
SCDDLIPS 
SCDDLIRE 
SCDDLIS 

SCDDLIUP 
SCDDLIV 

SCDDLOCT 
SCDDSEHO 
SCDDXMTO 
SCDERRMS 
SCDEXTBA 
SCDFLPC 

SCDFLSAV 
SCDHLRE 

SCDIWAIT 
SCDLIPLI 
SCDLNGTH 


SCDLOCOU. 


SCDLOCO3 
SCDLOWER 
SCDLOWID 
SCDLSTAD 
SCDMPCPT 
SCDMTI 
SCDMXTSK 
SCDNABND 
SCDNAVID 
SCDNDMP 
SCDNINL 
SCDNLOGI 
SCDNTWC 
SCDPATCH 
SCDPDCA 
SCDPDUP 
SCDPI 
SCDPPAB 
SCDPPAF 
SCDPPFB 
SCDPPFF 
SCDPPSTL 
SCDPPSTN 
SCDPPSTS 
SCDPRHED 
SCDPSTLN 
SCDQFJRN 
SCDOFSCD 
SCDQUEFW 
SCDQUEFO 
SCDREENT 
SCDRELOD 


Hex 


Offset 


E2 
DC 
8C 
110 
114 


Hex 


Value 


F4 
08 


80 
0208 


80 
01 
O04 


02 


40 


08 
04 


08 
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Cross Reference 





Hex Hex 
Name Offset Value 
SCDREPLN 158 
SCDRLABN 11D O04 
SCDRLRST 11D 10 
SCDRPSB 130 — 20 
SCDSEQ 156 
SCDSIND 11C 
SCDSIND2 11D 
SCDSOPLG 11D 01 
-SCDSPCNT 11A 
SCDSTROO DO . 
SCDSYACT 11D 40 
SCDSYINT 11D 02 
SCDSYSAB 11D 80 
SCDSYWAT 11D 20 
SCDTAMOD 170 40 
SCDTBHCL 170 02 
SCDTCPOS 170 10 = 
SCDTINDX 170 01 Z * 
SCDTKCNT 118 ; — 
SCDTKTRM CC ei 
SCDTOLBH 171 80 
SCDTPITR 171 40 
SCDTRACE 164 
SCDTRCNM 168 
SCDTRETR LO 20 
SCDTRFL1 170 
SCDTRFL2 4 a a 
SCDTSEGM 170 08 
SCDTSKCT 174 , 
SCDTUSER 170 80 la 
SCDTVSAM 170 O04 Nn | 
SCDTWFI1 TLC 08 =. 
SCDUPD 11C 10 
SCDUPPER 70 
SCDUSAVE F4 F4 
SCDWAIT 106 
SCDXECB 130 80 
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SCDEXT - SCD Extension 


DSECT Name: SCDEXTDS 


The SCD extension is generated in the same manner as the SCD (system contents directory) and is a logical 
extension of it. 


Offsets 
(Dec) 

0 (0) 

0 (0) 

4 (4) 

8 (8) 
12 (C) 
16 (10) 
20 (14) 
24 (18) 
28 (1C) 
32 (20) 
36 (24) 
40 (28) 
44 (2C) 
48 (30) 


(Hex) Length 


0 


4 


Field/Flag 


Name 
SCDEXTDS 
SCDELECB 
SCDESECB 
SCDEFECB 


SCDEVSEX 


SCDEPASS 


SCDEIDST 


SCDEIDNX 


SCDEIDWK 


SCDEMSGT 


SCDETRTB 


SCDETRTE 


SCDETRTS 


SCDEXLEN 


rae 


een eecennnmtenme ne ame tat ts Tan we ET ROR 


Flag Code 
(Bit) 





Description 


Logger I/O ECB 
System enqueue ECB 
System function call ECB 


Address of VSAM exception 
exit (DLZOVSEX) 


Address of system password 
(DLZPASS) 


Address of first PPST ID 
asSigned (DLZIDLST) 


Address of last active 
PPST ID (DLZIDLST) 


Address of PPST search 
table (DLZIDWRK) 


Address of online message 
module (DLZMMSGT) 


Current entry in incore 
table 


End address+1 of trace 


table 


Start address of trace 
table 


Reserved 


"*-SCDEXTDS" length of SCD 
extension 
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Offsets | Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 


Batch usage of the SCD Extension 


e) (0) 4 SCDEREEN 
4 (4) 4 SCDEABEX 
8 (8) 4 SCDEABSV 
12 (Cc) 4 SCDEPCEX 
16 (10) 4 SCDETRAN 
20 (14) 4 -SCDETRSV 
24 (18) 4 SCDAPSTR 
28 (1C) 4 (2) 


The following constants have the same labels as online 


36 (24) 4 
40 (28) 4 
44 (2C) 4 
48 (30) 4 
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Description 


Address of utility block 
call entry point 


Address of STXIT ABEND 
routine (DLZAABND) 


Address of STXIT ABEND 
save area 


Address of STXIT PC 
routine (DLZPABND) 


Address of ABTERM 
transient area 


Address of transient save 
area 


Application program start 
address 


Not used in batch 


Current entry in incore 
table 


End address+1 of trace 
table 


Start address of trace 
table 


Reserved 
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Cross Reference 





Hex Hex 
Name Offset Value 
SCDAPSTR 18 
SCDEABEX 4 
SCDEABSV 8 
SCDEFECB 8 
SCDEIDNX 18 
SCDEIDST 14 
SCDEIDWK 1c 
SCDELECB O 
SCDEMSGT 20 
SCDEPASS 10 
SCDEPCEX Cc 
SCDEREEN 0 
SCDESECB 4 
SCDETRAN 10 
SCDETRSV 14 
SCDETRTB 24 
=e SCDETRTE 28 
a SCDETRTS 2€ 
( SCDEVSEX Cc 
SCDEXLEN 30 34 


SCDEXTDS O 
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SDB - Segment Description Block 
~ DSECT Name: SDB 


The segment description block (SDB) is described as part of the general structure and description of the program 
specification block (PSB). 


Offsets 


(Dec) (Hex) Length 


0 


0 


10 


(0) 
(0) 
(0) 


(4) 


(8) 


0 


8 


Field/Flag 


Name 
SDB 
SDBSYM 


SDBLTP 

SDBLTN 

SDBLEVEL 
SDBORGN 
SDBORGRI 
SDBORGHD 
SDBORGHI 
SDBORGH2 
SDBORGSH 
SDBORGH 1 
SDBORGHS 
SDBORGSS 


SDBF3 


SDBSENG 


SDBSENI 
SDBSENR 
SDBSEND 
SDBSENK 


SDBSENP 
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Flag Code 





Description 


Licensed Material—Property of IBM 


Segment symbolic name 


Prior segment on logical 
twin chain 


Next segment on logical 


twin chain 


Level of this segment 
(logical) 


Organization of data 
containing segment 


sl ie 4 a 


This segment 


root of index 


"X'20'" This segment 
a HDAM organization 


"X'10'" This segment 


a HIDAM organization 


“x OS: f 
DOS/VS) 


(Not used in 


base 


is in 


is in 


DL/I 


"X'O5'" This segment is in 
a simple HISAM organization 


"xX'O4'" This segment is in 


a HISAM organization 


"X'O2'" This segment is in 
a HSAM organization 


"X'O1'" This segment is in 
a Simple HSAM organization 


Call sensitivity 


"xy ' go! w 


Sensitivity 


read only 


nyrgg'" 
Nx 20 
x 108 
arog" 


i’ ie OY 4 eee 


Sensitivity 
Sensitivity 
Sensitivity 
Sensitivity 


Sensitivity 


is 


is 
is 
is 
is 


is 


insert 
replace 
delete 


key only 


path only 








oe 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
SDBSENX batecal «amc "X'O2'" Sensitivity is 
exclusive 
SDBSENL eee: eal "X'O1'" Sensitivity is load 
11 (B) 1 SDBF4 Flags 
SDBPOSL ee mee a "X'O2'" Position lost 
SDBCISP ea nee "X'O4'" Control interval 
split in HISAM KSDS 
SDBALTSQ leh, . ytd "X'4O'" Secondary index is 
main processing sequence 
SDBALTSC OPV e, Salas "X'20'" Secondary index 
search fields require 
conversion 
(- "X'10'" Reserved 
= SDBDCHG ect ace "X'O1'" Temporary switch 
for replace data changed 
12 (C) 1 SDBPHYCD Segment code 
12 (C) 4 SDBDDIR DMB directory address 
16 (10) 4 SDBNSDB Next SDB for this PSDB 
20 (14) 4 SDBPSDB Address of PSDB 
( | 24 = (18) 1 SDBKEYLN Executable key length of 
a key field 
24 (18) 4 SDBPARA Parent SDB (address of PCB 
for root SDB) address of 
prior SDB on 'SDBTARG' 
chain for generated SDBs 
(SDBGEN on in SDBTFLG) 
28 C1C) 4 SDBDSGA Address of the DSG section 
of JCB for data set 
(- containing segment 
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Offsets 
(Dec) (Hex) Length 


32 


32 


36 


37 


5-176 


Name 


(20) 1 SDBTFLG 


SDBPPTSP 
SDBPPSP 


SDBPCTSP 


SDBLCPK 
SDBGEN 
SDBSPP 
SDBSNX 
SDBoLt 
SDBSLP 
(20) 4 SDBTARG 
(24) 1 


SDBPTNO 


(25) 1 SDBPTDS 


SDBCTR 
SDBPTF. 
SDBPTB 


SDBPP 


SDBLTFD 
SDBLTBK 


SDBLP 


SDBHIER 


DL/I DOS/VS Logic Manual, Volume1 


Field/Flag Flag Code 


(Bit) 


erceverereoresemremnnecenereent 


(oy re 
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Description 


Logical relationship code 


 "X'CO'" Segment is 
physical parent of target 


of SDBPARA 


"X'80'" Segment is 
physical parent of SDBPARA 


"X'4O'" Segment is 
physical child of target 
of SDBPARA 


wy OoOys 
DOS/VS) 


(Not used in DL/I 


"X'10'" This SDB is a 
generated SDB 


"X'O8'" Segment is a 
virtual logical child 


"X'O4'" Segment is 
retrieved via index 


"X'O02'" See PLM for 
detailed explanation 


"X'O1'" Segment is a 
logical child 


Address of the logically 
related segments SDB 


Pointer number of first 
physical pointer 


Physical pointer flag 


"X'80'" This logical 
parent segment has a 
counter 


"X'40'" This segment has a 
physical twin forward 
pointer 


"X'20'" This segment has a 
physical twin backward 
pointer 


"X'10'" This segment has a 
physical parent pointer 


"X'O8'" This segment has a 
logical twin forward 
pointer 


"X'O4'" This segment has a 
logical twin backward 
pointer 2 2 


"X'O2'" This segment has a 
logical parent pointer 


ya, Gu Oe ee 
DOS/VS) 


(Not used in DL/I 





—_— 
eed 





Licensed Material—Property of IBM 





Offsets 
oe (Dec) (Hex) Length 
( | 38 = (26) 1 
39 (27) 1 
40 (28) 4 
44 (2C) 4 
48 (30) 4 
52 (34) 4 
56 (38) 1 
56 (38) 4 





Field/Flag 


Name 


Flag Code 
(Bit) 





SDBPCF 


SDBPCB 


SDBKEYFD 


SDBPOSP 


SDBPOSC 


SDBPOSN 


SODBXFL 


SDBXPRES cele. sees | 


SDBFLS teem. wo 


SDBXPANS 
SDBEND oe i Mme a eee 


SDBLEN Se Aes 


Description 


Pointer number in parent 
to first occurrence of this 
segment type 


Pointer number in parent 
to last occurrence of this 
segment type 


The address within 
DBPCBKFD for key this 
segment in generated SDB 
for logical destination 


parent: 

Byte O = Physical segment 
code of logical 
child 

Bytes 1-3 = Logical child's 


PSDB address in 
In generated SDB for 
for physical destination 


parent: 

Byte O = Physical segment 
code of virtual 
logical child 

Bytes 1-3 = Virtual logical 
child's PSDB 
address 


Previous position 


Current position X'80' in 

high-order byte = position 
lost, in conjunction with 

SDBPOSL in SDBF4 


Next position (current 
position in generated 
SDBs) 


SDB expansion flag 

"X'O1"” SDB -expanszon for 
secondary index processing 
sequence is present 
(secondary index is main 
processing sequence) 


"X'02'" Segment has field 
level sensitivity 


SDB expansion address 
"*™ end of SDB entry 


"SDBEND-SDBSYM" length of 
each SDB 
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Cross Reference 


Hex 
Name Offset 
SDB 0 
SDBALTSC B 
SDBALTSQ B 
SDBCISP B 
SDBCTR 25 
SDBDCHG B 
SDBDDIR Cc 
SDBDSGA ie 
SDBEND 38 
SDBFLS 38 
SDBF3 A 
SDBF4 B 
SDBGEN 20 
SDBHIER 20 
SDBKEYFD 28 
SDBKEYLN 18 
SDBLCPK 20 
SDBLEN 38 
SDBLEVEL 8 
SDBLP 25 
SDBLTBK 25 
SDBLTFD 25 
SDBLTN 4 
SDBLTP 0 
SDBNSDB 10 
SDBORGHD 9 
SDBORGHI 2 
SDBORGHS 2 
SDBORGH 1 9 
SDBORGH2 S. 
SDBORGN 9 
SDBORGRI 9 
SDBORGSH a 
SDBORGSS 2 
SDBPARA 18 
SDBPCB 27 
SDBPCF 26 
SDBPCTSP 20 
SDBPHYCD C 
SDBPOSC 30 
SDBPOSL B 
SDBPOSN 34 
SDBPOSP ZC 
SDBPP 25 
SDBPPSP — 20 
SDBPPTSP 20 
SDBPSDB 14 
SDBPTB 25 
SDBPTDS 25 
SDBPTF 25 


3C 
O2 


10 
01 


20 
3C 
O02 


08 


40 


02 


10 


CO 


20 


40 


Name 


SDBPTNO 
SDBSEND 
SDBSENG 
SDBSENI 
SDBSENK 
SDBSENL 
SDBSENP 
SDBSENR 
SDBSENX 
SDBSLC 
SDBSLP 
SDBSNX 
SDBSPP 
SDBSYM 
SDBTARG 
SDBTFLG 
SDBXFL 
SDBXPANS 
SDBXPRES 
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Hex 


Offset 


Hex 
Value 


01 


Licensed Material—Property of IBM 
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SEC - Secondary List 


DSECT Name: DMBSEC 


The secondary list is described as part of the general structure and description of the DMB. The labels in SEC vary 
with the type of secondary index entry. See the field description listed by code type in the record layout. 


Offsets 
(Dec) (Hex) Length Name 


0 (0) O DMBSEC 


0 (0) 1 DMBSCDE 


DMBSLP 
DMBSLC 


DMBSRCH 


DMBSLCF 


DMBSLCPR 


DMBSOURC 


DMBSUBSQ 


DMBEXTRN 


DMBINDXD 


DMBNXISS 


DMBNXXDS 


DMBSND 


Field/Flag 


Flag Code 


Paes Uae 


aa 


Description 


Code byte 


"X'O1'" Secondary list 
describes a logical parent 


"X¥'O2'" Secondary list 
describes a logical child 


"X'O4'" Secondary list 
describes index search 
field(s) 


"X'O8'" Secondary list 
describes logical twin 
sequence field 


"X'11'" (Not used in DL/I 
DOS/VS) 


"X'20'" Secondary list 
describes index data 
field(s) 


"X'24'" Secondary list 
describes index SUBSEQ 
field(s) 


"X'4GO'" Secondary list 
describes user index exit 
routine 


"X'4G4'™ Secondary list 
describes index target 
segment as seen from index 
pointer segment 


"X'60'" Secondary list 
describes index 
relationship as seen from 
index source segment 


"X'64'" Secondary list 
describes index 
relationship as seen from 
index target segment. this 
list is not present if ISS 
= target 


"X'80'" Last entry in 
secondary list 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 
The following fields are listed by code type 
Code 01 - describes logical parent 
DMBSFLDS ee ee 
1 (1) 1 DMBSFLG 
DMBVKY VAS, eel 
DMBPKY Vitee Vs ace] 
2 (2) 2 DMBSFD 
4 (4) 1 DMBSECSC 
4 (4) 4 DMBSECDB 
8 (8) 8 DMBSECNM 
Code 02 - describes logical child 
1 (1) 1 DMBSLCIR 
2 (2) 2 DMBSLCFL | 
Code 04 - describes index SRCH fields 
1 (1) 1 DMBFDFLG (5) 
DMBSYM1 goo ik oot, eg 
DMBSYMN1 See “eouleces 
DMBSYSFD 6 eaten owe Ie 
DMBFDUSE eater wera 
DMBFDONE draie | 
6 (6) 2 DMBFDOFF (5) 
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Description 


TH ge Ut 


"C'v'" Key of logical 
parent is virtual 


"c'p'™ (Not used in DL/I 
DOS/VS) 


Logical parent key length 


Segment code of referenced 
segment 


DDIR address of referenced 
data base 


Segment name of referenced 
segment 


Logical twin sequence 
insert rule 


Number of first and last 
logical child pointers in 
logical parent prefix 
remainder of fields same 
as code 01 


Five one-byte flags 
associated with the 


following FDB offsets 


—"X'OS'" First part of 


symbolic pointer 


"X'O4'" Not first part of 
symbolic pointer (middle 
or last) 


"X'O2'" This slot for 
system related field 


"x'O1'" This slot in use 


"X'10'" This entry 
processed by block builder 


Offset to FDB from first 
FDB of ISS if this slot is 
in use, otherwise zero 
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Offsets Field/Flag 
(Dec) (Hex) Length Name 


Code 08 - describes logical twin sequence field 


1 Cl) 1 DMBSFPSC 
Z (2) 8 DMBSFNAM 
10 (A) 2 DMBSFOFF 
12 (C) 1 DMBSFCEN 
13 (D) 1 DMBSFLEN 
14 (E) 2 DMBXSOFF 


Code 20 - describes DDATE field 


Code 24 - describes SUBSEQ field 


Code 40 - describes index exit routine 


1 (aN) 1 DMBSFLG1 
DMBSNULL 
DMBEXIT 
DMBNLXIT 
DMBEXLOD 

2 (2) 2 

4 (4) 1 DMBNBYTE 

4 (4) 4 DMBXITAD 

8 (8) 8 DMBSUPRT 





Flag Code 
(Bit) 


re 


Description 


Virtual logical child 
physical segment code 


FDB field name 
Offset to field in segment 


Code byte (same as 
FDBDCENF in FDB) 


Executable field length 


Offset to field in indexed 
segment 


Same fields as code O04 


Same fields as code O04 


t 


Flag byte 
"X'O1'" Null field present 


wx O2"*" Exit. routine 
present 


ue dee Oe: tu 


"X'O4'" Exit routine has 
been loaded 


Reserved 


If index field equals this 
byte bypass indexing 


Address of index 
maintenance 
parameter CSECT 


Suppression routine name 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) | — Description 





Code 44 - describes index target segment 


1 (1) 1 DMBSKYLN | Executable length of key 
2 (2) 2 DMBSOFF Offset to PSDB address 
pointer of index target 
segment 
4 (4) 1 DMBXDSSC Segment code of index 
target segment 
4 (4) 4 DMBXDSDB DDIR address of index 
target segment 
8 (8) 1 DMBXDSC Segment code of index 
target segment 
8 (8) 4 DMBXPSDB PSDB address of index 
target segment Ko 
‘12 (C) 1 DMBXDFLG Code byte from associated Nl 
FDB 
DMBXDLST {eee eee ae "X'80'" Last FDB in list 
“\ 
DMBXDSYM sires teat "X'4GO'" Index pointer is 
symbolic 
DMBXDSSS eerie et eles "X'20'" Pointer contained 


in source/subseg data 





DMBXDSPC ...1.... "X'10'" Special FDB for 

, secondary index 

DMBXDCON Sees eee re Oe eenstant present 

DMBXDSSQ gee sees "X'O4'" SUBSEQ present 

DMBXDSOR a een "xX'O2'" (Not used in DL/I 

DOS/VS) 

DMBXDEQ Bees easel "X'O1'" XDS = ISS 
13 (D) 1 DMBXDPAD Padding constant fo ™ 
14 (E) 2 DMBSYMOF Offset to symbolic pointer aed 


indexing segment 


Code 60 - describes index from ISS 


1 (1) 3 Same as code 44 

4 (4) 1 DMBXNSSC Segment code of index 
pointer segment 

4 (4) 4 DMBXNSDB DDIR address of index 
remaining fields same as 
code 44 
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Code 64 - describes index from index target 
( : 1 (1) 1 Same as code 44 
— 2 (2) 2 DMBISSOF Offset to code 60 from 


from start of ISS 
secondary list 


4 (4) 4 Same aS code 60 
8 (8) 1 DMBISSSC Segment code of index 
source segment 
8 (8) 4 DMBIPSDB PSDB address of index 
source segment 
12 (C) 4 Same as code 44 
DMBSECND i eee "*'" End of each secondary 
list entry 
co, DMBSECLN Sg secates "DMBSECND-DMBSEC" length 
( of each secondary list 
entry 
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Cross Reference 


Name 


DMBEXIT 
DMBEXLOD 
DMBEXTRN 
DMBFDFLG 
DMBF'DOFF 
DMBFDONE 
DMBFDUSE 
DMBINDXD 
DMBIPSDB 
DMBISSOF 
DMBISSSC 
DMBNBYTE 
DMBNLXILT 
DMBNXISS 
DMBNXXDS 
DMBPKY 
DMBSCDE 
DMBSEC 
DMBSECDB 
DMBSECLN 
DMBSECND 
DMBSECNM 
DMBSECSC 
DMBSFCEN 
~ DMBSFD 
DMBSFLDS 
DMBSF LEN 
DMBSF'LG 
DMBSFLG1 
DMBSF'NAM 
DMBSFOFF 
DMBSFPSC 
DMBSKYLN 
DMBSLC 
DMBSLCF 
DMBSLCFL 
DMBSLCIR 
DMBSLCPR 
DMBSLP 
DMBSND 
DMBSNULL 
DMBSOFF 
DMBSOURC 
DMBSRCH 


DMBSUBSQ > 


DMBSUPRT 
DMBSYMN1 
DMBSYMOF 
DMBSYM1 

DMBSYSFD 


Hex 


Offset 


—--WM-DODOONRH-DOODOH]HNOOH KH PNHHKTONDNFAQDAFOCOHKHDOOHFONAD- HH O--— 


Hex 
Value 


02 


40 


10 


44 


03 


64 
D7 


10 
10 


01 


04 


08 
02 


Name 


DMBVKY 
DMBXDCON 
DMBXDEQ 

DMBXDFLG 
DMBXDLST 
DMBXDPAD 
DMBXDSC 

DMBXDSDB 
DMBXDSOR 
DMBXDSPC 
DMBXDSSC 
DMBXDSSQ 
DMBXDSSS 
DMBXDSYM 
DMBXITAD 
DMBXNSDB 
DMBXNSSC 
DMBXPSDB 
DMBXSOFF 
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Hex 


Offset 


FOFFENQNQQFSFQQFADANANAN== 


Hex 


Value 


E5 
01 


80 


02 
10 


04 


40 
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SGT - Segment Table 
( : DSECT Name: DLZPRSGT 
This DSECT describes the segments used by the partial reorganization process. It is built during the DBD analysis 


phase and is used by all subsequent phases in PART1 and PART2. Its address is held in the common area field 
(COMASGT). Associated with the SGT is the segment extension table (SGX). 








Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 SGT 
0 (0) 4 SGTSTART 
0 (0) 8 SGTCName Segment name 
8 (8) 4 SGTROLD Old RBA of last segment 
un/reloaded 
bac ie (C) 4 SGTRNEW New RBA of last segment 
= ie reloaded 
16 (10) 4 SGTFCNT 1 Statistical counter 
20 (14) 4 SGTFCNT2 Statistical counter 
24 (18) 4 SGTFCNT3 Statistical counter 
28 (1C) 4 SGTFCNT4 Statistical counter 
32 (20) 4 SGTFCNT5 Statistical counter 
( 36 = (24) 4 SGTFCNT6 Statistical counter 
; 40 = (28) 2 SGTODBT Offset to DBT entry for 
this segments DB 
42 (2A) 2 SGTOKEY Segment key start POS 
roots only 
44 (2C) 2 SGTHKLEN Segment key length roots only 
46 (2E) 2 SGTHPLEN Segment prefix length 
( 48 (30) 2 SGTHDLEN Segment data length maximum 
ke if variable 
50 (32) 2 SGTORACT Offset in ACT to first 
reload action 
52 (34) 2 SGTOSACT Offset in ACT to first 
scan action 
54 (36) 2 Spare offset field 
56 (38) 2 SGTOPCF Offset in SGT to first 
physical child of this 
58 (3A) 2 SGTOSIBL Offset in SGT to next 
SESIBLING segment 
60 (3C) 1 SGTCSC DL/I segment code 
61 (3D) 1 SGTCDS DL/I data set code 
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(Dec) (Hex) Length 


Offsets 
62 (3E) 
63 (3F) 
64 (40) 
65 (41) 


1 


1 


1 


1 


Field/Flag 


Name 


SGTCLEV 


SGTGATR1 


SGTQMOVE 
SGTQHIDR 
SGTOQPP 
SGTOPTB 
SGTOPCL 
SGTQHIER 


SGTQHB 


SGTQVRLN 


SGTGATR2 


SGTOLC 


SGTQUNID 


SGTQVPR 
SGTQPPR 


SGTQOSYM 


SGTQDRCT 
SGTQLTB 


SGTOLCL 
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Description 
DL/I level code 


Reserved 


Segment physical 
attributes | 


"x'80'" Segment to be 
moved for reorganization 


"X'4O'" Segment is HIDAM 
root 


"X'20'" Segment has PP 
pointer 


"X'10'" Segment has PTB 
pointer 


"X'O8'" Segments parent 
has PCL pointer to this 


"X'O4'" Segment has 
hierarchic pointers 


"X'O2'" Segment has 
hierarchic backward 
pointer 


"X'O1'" Segment is 
variable length 


Segment logical attributes 


"X'80'" Segment is a 
logical child 


"X'4O'" Segment is 
logical child in 
unidirectional relation 


"X'20'" Segment has 
virtual pair 


"x'10'" Segment has 
physical pair 


"X'O8'" Segment has only 
symbolic pointer to 
logical parent 


"X'O4'" Segment has direct 
pointer to logical parent 


"X'O2'" Segment has LTB 
pointer 


"X'O1'" Segments logical 
parent has LCL pointer 
to this 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length ~ Name (Bit) 
66 (42) 1 SGTGATR3 
SGTQNOLT 1... 
SGTQLP a 
SGTOXDRT .... 1... 
SGTUNIQ ae re 
SGTQXSX beter. Bre 
SGTOPTF vee: Gael 
67 (43) 1 SGTGATR4 


SGTOKSEN 1... 
SGTQDSEN.1.. 
SGTQONPRO ....1. 
SGTOSOPT .... ..1. 


SGTQOSCAN foe sell 


Description 


Segment logical and index 
attributes 


"X'80'" Virtually paired 
with no LTWIN pointers 


"X'4O'" Segment is a 
logical parent 


"X'O8'" Segment is index 
segment with direct pointer 


"X'O4'" Segment is ina 
unique index 


"X'O2'" Segment is index 
segment with SX field 


"X'O1'" Segment has PTF 
pointer 


Segment PSB attributes 


"X'80'" Key only 
sensitivity required 


"X'4O'" Data sensitivity 
required 


"X'20'" Segment not 
processed used to reach PC 


"X'O2'" Scan is option for 
this segment 


"X'O1'" This segment will 
be scanned 
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Segment Extension Table 





This part of the DSECT is for additional information about the ya 
segments used by the partial re-organization process. It contains | y . ; 
offsets needed to create the action table (ACT). It is created — 
during the DBD analysis phase. 
68 (44) 2 SGXOCTR | Offset in prefix of log 
| rel counter 
70 (46) 2 SGXOPTF Offset in prefix of PTF 
pointer 
72 (48) 2 SGXOPTB | Offset in prefix of PTB 
pointer 7 
74 (4A) 2 SGXOPP Offset in prefix of PP 
| pointer ag 
76 (4C) Z SGXOLTF Offset in prefix of LTF 
pointer | 
| va 
78 (4E) 2 SGXOLTB Offset in prefix of LTB 4 
pointer ed 
80 (50) 2 SGXOLP Offset in prefix of LP 
pointer 
82 (52) 2 SGXOHIER Offset in prefix of hier 
pointer 
84 (54) 2 SGXOHB | Offset in prefix of hier 
back pointer 
86 (56) 2 SGXOPCF | Offset in segments PP of fe 
PCF to this segment ‘eo 
88 (58) 2 SGXOLCF Offset in segments logical 
3 i parent of LCF to this 
segment 
90 (5A) 2 SGXOSPP Offset in SGT of physical 
parent 
92 (5C) 2 SGXOSLP Offset in SGT of logical 
parent 
94 (5E) 2 SGXOPAIR | Offset in SGT of physical 
pair 
96 (60) 2 SGXOTARG Offset in SGT of target of 
this segment 
98 (62) 2 SGXOSRCE | Offset in SGT of source of 
this segment 
100 (64) 2 SGXOPCWK Work area to hold offset 
to first physical child 
pointer 
102 (66) 2 SGXOLCWK Work area to hold offset 
: to first logical child 
pointer 
104 (68) 4 SGXFBLK Last block un/reloaded 


used in PART2 


- SGTLLEN SA. “AMtian "*-SGTSTART" length of a 
SGT ENTRY 
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Name 


SGT 
SGTCDS 
SGTCLEV 
SGTCName 
SGTCSC 
SGTFCNT 1 
SGTFCNT2 
SGTFCNT3 
SGTFCNT4 
SGTFCNT5 
SGTFCNT6 
SGTGATR1 
SGTGATR2 
SGTGATR3 
SGTGATR4 
SGTHDLEN 
SGTHKLEN 
SGTHPLEN 
SGTLLEN 
SGTODBT 
SGTOKEY 
SGTOPCF 
SGTORACT 
SGTOSACT 
SGTOSIBL 
SGTODRCT 
SGTODSEN 
SGTQHB 
SGTOHIDR 
SGTOHIER 
SGTOKSEN 
SGTOLC 
SGTQOLCL 
SGTOLP 
SGTOLTB 
SGTOMOVE 
SGTQONOLT 
SGTONPRO 
SGTOPCL 
SGTOPP 
SGTOPPR 
SGTOPTB 
SGTOQOPTF 
SGTOSCAN 
SGTOSOPT 
SGTQSYM 
SGTQUNID 
SGTOVPR 
SGTOVRLN 
SGTOXDRT 


Cross Reference 


Hex 


Offset 


3D 
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Hex 
Value 


6C 


Name 


SGTOXSX 
SGTRNEW 
SGTROLD 
SGTSTART 
SGTUNIQ 
SGXFBLK 
SGXOCTR 
SGXOHB 
SGXOHIER 
SGXOLCF 
SGXOLCWK 
SGXOLP 
SGXOLTB 
SGXOLTF 
SGXOPAIR 
SGXOPCF 
SGXOPCWK 
SGXOPP 
SGXOPTB 
SGXOPTF 
SGXOSLP 
SGXOSPP 
SGXOSRCE 
SGXOTARG 





Hex 


Offset 


42 


Hex 
Value 


O02 


O04 
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SQLID - Userid Control Block 


DSECT Name: DLZSQLID 


Licensed Material—Property of IBM 


' This USERID control block is used to pass data from DLZUACBO to DLZDCBLO in the Application Control Block 
Maintenance Utility (ACBGEN). This control block contains information when the USERID’ parameter is used on. 


the BUILD statement. 


Offsets Field/Flag 
(Dec) (Hex) Length Name 
O (0) 0 USERIDCB 
0 (0) 1 USRIDFLG 
~ PROUSRID 
1 (1) 8 PASSWORD 
12 (C) 4 TOAREAAD 
16 (10) 4 DLBDPADD 
20 (14) 4 DLBPPADD 
USERIDLN 
Cross Reference . 
Hex Hex 
Name Offset Value 
DLBDPADD 10 
DLBPPADD 14 
TOAREAAD Ss 
PASSWORD 1 
PROUSRID 0 01 
USERIDCB 0 
USERIDLN 14 18 
USRIDFLG 0 
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Description 
USERID control block 


Flags byte for USERID 
parameter 


"X'O1'" USERID SpectEtee 


on build 

Password for SQL/DS ee 

connect ie . 
\ } 

| ea 

Address of SQL IOAREA 

Address of DLZDLBDP module 

Address of DLZDLBPP module 

"*-USERIDCB" length of 

USERID control block 
—_— 
\ ry 
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SSA - Segment Search Argument 
DSECT Name: DLZSSA 


This DSECT describes the DL/I HLPI Segment Search Argument fields. It includes the command codes and 
qualification arguments. It points to the SSAX DSECT for the length of the SSA. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) O SSAXPTRO The following field is not 
mapped by DLZSSA DSECT 
@) (O) 4 SSAXPTR Pointer that points to 
SSAX, always placed before 
SSA 
0 (0) 0 SSA 
0 (O) 8 SSASEGNM Segment name 
8 (8) 1 SSAASTRK Asterisk (*) or blank if 
not qualified 
9 (9) 4 SSACMND Command codes 
13 (D) 1 SSALPARN Left parenthesis 
SSAQS Sans likes "*" SSA qualification 


sections 


Note: 

The next four fields are repeated for each 
qualification section of a boolean SSA. The SSABO 
field will have a right parenthesis in the last (or 
the only) qualification section. 


14 (E) 8 SSAFLDNM Field name 
22 (16) 2 SSARO Relational operators 
Note: 


Length of SSARO field is maintained in the equate 
symbol HLPIOPRL in DSECT DLZHLPIL. 


24 (18) 255 SSAKEYFL Maximum key field value 
279 (117) 1 SSABO Boolean operator or right 
parenthesis 


The actual position of SSABO depends on the length 
of the SSAKEYFL field. 


Note: 
Length of SSABO field is maintained in the equate 
symbol HLPIOPBL in DSECT DLZHLPIL 


SSAQSLN "*-SSAOS" length of Q.S. 


section 
SSALGTH "*-SSA" length of SSA 
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Cross Reference 
Hex Hex 
Name Offset Value 
SSA 0 
SSAASTRK 8 
SSABO 117 
SSACMND 9 
SSAFLDNM E 
SSAKEYFL 18 
SSALGTH 117 0118 
SSALPARN D 
SSAQS | D OF 
SSAQSLN 117 010A 
SSARO 16 
SSASEGNM 0 
SSAXPTR 0 
SSAXPTRO 0 
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ot 








| 
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SSAP - Segment Search Appendage 


DSECT Name: DLZSSAP 


This DSECT describes the fields contained in the DL/I HLPI Segment Search Argument get path call appendage. 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 SSAP 
@) (0) 4 
0 (0) 8 SSAPSEGM | Segment name 
8 (8) 1 SSAPFLAG SSA flag 
SSAPVARL Vai. wate te "X'80'" Variable length 
segment 
SSAPDATT a ie ae ere "X'4O0'" Data to be 
transferred 
SSAPPROC Sie bs. bodes "X'20'" Segment already 
processed 
9 (9) 3 SSAPIOA Address of IOAREA for this 
segment 
12 (C) 2 SSAPLIOA Length of the IOAREA for 
this segment 
14 (E) 2 SSAPSGOF Offset to length of the 
destination parent 
SSAPLEN ede “detecdes "*-SSAPSEGM" length of SSA 
appendage 
SSAPSTOR (a i oi eee "SSAPLEN*15" length for 
required number of SSA 
appendages | 
SSAAPLN eee “Wiwahs "*-SSAPFlag" length of 
appendage information 
Cross Reference 
Hex Hex 
Name . Offset Value 
SSAAPLN E 08 
SSAP 0 
SSAPDATT 8 40 
SSAPFlag 8 
SSAPIOA 9 
SSAPLEN E 10 
SSAPLIOA C 
SSAPPROC 8 20 
SSAPSEGM 0 
SSAPSGOF E 
SSAPSTOR E FO 
SSAPVARL 8 80 
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SSAX - Segment Search Argument Extension 


1, a 
DSECT Name: DLZSSAX ae 
ee 
This DSECT describes the DL/I HLPI Segment Search Argument extension fields. It includes the SSA length, the 
-J/O area address and length, and several flags for processing. This is an extension to the SSA DSECT to allow 
multiple Boolean qualification conditions and any further expansion. | 
Offsets Field/Flag Flag Code | 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) O SSAX 
0 (0) 1 SSAXFlag SSA flag 
SSAXVARL 1... ....  "X'80'" Variable length 
segment 
SSAXDATT lara eck ece "X'4O'" Data to be 
transferred ~ 
aa a 
SSAXPROC ..1. .... "X'20'" Segment already Re 
processed al 
1 (1) S SSAXIOA Address of IOAREA for this 
segment 
4 (4) 2 SSAXLIOA Length of the IOAREA for 
this segment 
6 (6) 2 SSAXSGOF Offset to length of the 
destination parent | 
8 (8) 2 SSACLEN SSA length, less than or f | 
equal to SSAXSTOR “ 
SSAMLEN "304" maximum length for 
( non-HLPI SSA 
10 (A) 2 SSAXSTOR Length of storage acquired 
for SSA 
SSAXLEN odica “Ves "*-SSAX" length of SSAX 


Cross Reference 





Name Offset Value. 
SSACLEN 8 
SSAMLEN 8 0130 
SSAX 0 
SSAXDATT 0 40 
SSAXFlag 0 
SSAXIOA 1 
SSAXLEN A OC 
SSAXLIOA 4 
SSAXPROC O 20 
SSAXSGOF 6 
SSAXSTOR A 
SSAXVARL 0 80 
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STA - Statistics Table 


DSECT Name: DLZPRSTA 


This layout describes the fields used for gathering statistics by the partial reorganization utility. The fields are 
initialized and incremented by UNLOAD and RELOAD. The data is referenced by the statistics writer when 


formatting statistical reports. 


Offsets 
(Dec) (Hex) Length 
O (0) 0 
0 (0) 4 
O (0) 2 
Z (2) 80 
82 (52) 2 
84 (54) 2 
88 (58) 4 
92 (5C) 4 
172 (AC) 4 
212 (D4) 4 
216 (D8) 2 
0 (0) 216 
216 (D8) 2 
Cross Reference 
Hex 
Name Offset 
SGT. 0 
STATCNTR 0 
STBLBK40 2 
STBLBK41 52 
STBLCT 0 
STHASHS 58 
STHDOV D4 
STLOHICT 5C 
STMXBL 54 
STNDCNT D8 
STRG D8 
STROV AC 


Field/Flag 


Name 


SGT 


STBLCT 


STBLBK40 


STBLBK41 


STMXBL 


STHASHS 


STLOHICT (20) 


STROV (10) 
STHDOV 
STNDCNT 
STATCNTR 


STRG 


Hex 
Value 


Description 


Block count 


Counters for blocks 
1 to 40 


Counter for blocks 
over 40 


Maximum number blocks 
this range 


Number blocks over 40 


10 pairs of low-high 
block numbers 


For reload 


HDAM roots in overflow 


Length statistics counters 


Range counter for 
statistics 
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SUIB - User Interface Block 


DSECT Name: DLZUIB 
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The user section of this control block is used by extended DL/I call interface support (along with CICS/VS 
high-level language support). This section contains scheduling and system call status information returned to the 
user. (Prior to Version 1.4, this information was returned to the user in the TCA.) A system section of the UIB 
follows the user section. It is used by DL/I as task-local storage. Unlike PST storage, UIB storage is not released at 


scheduling termination. 


Offsets Field/Flag 
(Dec) (Hex) Length Name 
0 (0) O DLZUIB 

O (0) 4 UIB 
0 (0) 4 UIBPCBAL 
4 (4) 2 UIBRCODE 
4 (4) 1 UIBFCTR 
5 (55 1 UIBDLTR 
6 (6) 1 (2) 
8 (8) 4 
UIBLEN 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZUIB 0 
UIB 0 
UIBDLTR 5 
UIBFCTR 4 
UIBLEN 8 08 
UIBPCBAL O 
UIBRCODE 4 
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Description 


Extended call user interface 
block 


PCB address list 

DL/I return codes 
Return code 

Additional information 
Reserved 


Length is fullword 
multiple 


"*-UIB" length of UIB 














Licensed Material—Property of IBM 


TSQE - Temporary Storage Queue Entry 
( : DSECT Name: DLZTSQE 


The DLZTSQE macro maps the contents of the entries in the CICS/VS temporary storage queue used by the MPS 
Restart facility. The name of this temporary storage queue is ''DLZTSQOO". It is used to maintain the checkpoint 
IDs of the combined DL/I-VSE checkpoints taken by MPS batch jobs. There is one non-blank entry for each MPS 
batch job currently using the MPS Restart facility and also for each MPS batch job which abnormally ended after 
having taken a combined DL/I-VSE checkpoint. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 0 DLZTSQE 
0 (0) 1 TSOFlag Flag byte 
TSQACTV Ti Tiguse shaceel "C'A'" TSQ entry active 
an TSQBLANK a eee "c’ '" SO entry initial 
( ; character 
1 (1) 5 TSQRSRVD Reserved for future use 
6 (6) 4 TSQCPID Checkpoint ID 
10 (A) 26 TSQJBID Job ID next 4 fields 
10 (A) 8 TSQUBNM Job name 
18 (12) 2 TSQPTID Partition ID 
C 20 3=(14) 8 TSQDATE Job start date 
_ | 28 (1C) 8 TSQTIME Job start time 
TSQLEN "*-DLZTSQOE" length of TSQ 
 @nUury 
Cross Reference 
Hex Hex 
Name Offset Value 
DLZTSQE 0 
TSQACTV 0 C1 
TSOBLANK 0 40 
TSQCPID 6 
TSQDATE 14 
TSQFlag O 
TSQJBID A 
TSQJBNM A 
TSQLEN 1c 24 
TSQPTID 12 
TSORSRVD 1 
TSOTIME 1c 
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DLZTWAB - Transaction Work Area 





G ~\ 
MACRO Name: DLZTWAB { y 
The DLZTWAB macro provides the mapping for the batch partition controller’s transaction work area. The 
information is used for communication with: 
¢ DL/I task termination 
e CICS/VS 
e Batch partition 
e Scheduling MPS batch jobs 
e Online message module 
Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 0 DLZTWAB 
0 (0) 4 TWABPC wrx 
0 (0) 1 TWAMPSFG BPC flag byte ‘ew 
TWABPCOK Ugg. siete "X'80'" BPC abnormal 
termination processing 
completed 
TWAEOJSW Pe hee era ee "X'4O'" EOJ processing 
reached for MPS batch 
partition 
1 (1) 3 TWAMPCPT Address of MPC partition table ee 
; a an 
4 (4) 1 TWABPCID Batch partition XECB ‘4 # 
identifier ac 
5 (5) 3 TWAMPCE Address of specific MPC 
, partition table entry 
The following is the BPC’s CICS/VS WAITM ECB list, 
delimiter and XECB. 
8 (8) 4 TWAWLIST 
8 (8) 4 TWAXCB2 Pointer to BPC's XECB ( : 
(DLZXCBN2) a 
12 (C) 4 TWAXCB3 Pointer to ABEND XECB 
(DLZXCBN3 ) 
16 (10) 4 TWAXCBDL ECB list delimiter 
20 (14) 4 TWAXCBN2 XECB for BPC 
The following fields are used for communication with the 
batch partition. | 
24 (18) 8 TWAXCBN1 | XECBNSME for batch 
initialization 
32 (20) 4 TWAN1PTR XECBTAB table entry 
address for batch 
initializations 


XECB (DLZXCBN1) 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 


The following fields are used for the BPC’s DL/I scheduling 
CALL parameter list and the PSBNAME to be scheduled. 


36 (24) 4 TWASCHDC 
36 (24) 4 TWAPARMC 
40 (28) 4 TWACALL 
44 (2C) 4 TWAPSBN 
48 (30) 7 TWAPSBNM 
55 (37) 1 TWAPSBDL 


The following field contains the SCD address. 


56 (38) 4 TWABPSCD 


The following fields are used as an I/O buffer during 
temporary storage queue (TSQ) processing for MPS Restart. 


60 (3C) 4 TWATSBUF 
60  ~=(3C) 4 TWATSLEN 
64 (40) 36 TWATSQE 
TWATSOBL ..1. 1... 


Batch partition controller register save area 


100 += (64) 72 TWABPCSV 


Description 


Pointer to parameter count 
Pointer to call-function 
Pointer to PSB-name 
PSB-name 


PSB-name delimiter 


SCD address 


TSQ entry I/O buffer 
4 byte length field 
TSQ entry 


"*-TWATSBUF" TSO buffer 
length 


BPC register save area 


The following are the parameter list pointers, parameters and message fillers passed to the 
DL/I on-line message module DLZERMSG for all BPC messages. 


172 (AC) 4 TWAMSG 

172 (AC) 4 TWAMSGNO 
176 (BO) 4 TWAMSGID 
180 (B4) 4 TWAMSGO 1 


Message number pointer for 
all BPC messages 


For messages DLZO82I, 
DLZO84T.. DLZI031, DLZ1231, 
pointer to the partition 
ID; for message DLZ1041, 
pointer to the BPC module 
ID; for message DLZ127I, 
pointer to the job name 


For message DLZO82I and 
DLZO84I module name 

pointer; for message 

DLZ103I the termination 
condition pointer and 
delimiter; for message 

DLZ104I the CICS/VS abend 

code pointer and delimiter for 
message DLZ1231I, pointer to 
the routine name; for message 
DLZ1271, pointer to the partion ID 
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Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 
184 (B8) 4 TWAMSGO2 
188 (BC) 4 TWAMSGO3 
192 (CO) 4 TWAMSGO04 
196 (C4) 4 TWAPSW (2) 

204 (CC) 2 TWAMPSID 
214 (D6) 2 TWARCode 
216 (D8) 10 TWACOND 
226 (E2) 4 TWABEND 
230 (E6) 2 TWARSTRT 
230 (E6) 1 
231 (E7) 1 TWAOFFST 
232 (E8) 24 

TWABPCLN 
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Description 


For message DLZO82I and 
pointer; for message 
DLZ104I the PSW pointer 
and delimiter; for message 
DLZ1231, pointer to dfhts 
message DLZ1271I, pointer 
to the message text offset 


For message DLZO82I and 


XECBName pointer; for 


message DLZ1231I, CICS/VS 
response code pointer and 
delimiter; for message 
DLZ127I, checkpoint ID 
pointer and delimiter 


For message DLZO82I and 
DLZO84I the return code 
pointer and delimiter 


Program interrupt PSW 


Batch partition ID of the 
form BG,F1,F2,... 


Return code from XECBTAB 
macro or response code from 
DFHTS macro i 


BPC termination condition 
(abnormally or normally) 


CICS/VS abend code (ASRA) 


Restart message text 
offset 


First byte contains zeros 


Restart message text 
offset 


Reserved 


"*-TWABPC" length of BPC's 
TWA 





by ak 


a 








Name 


DLZTWAB 
TWABEND 
TWABPC 
TWABPCID 
TWABPCLN 
TWABPCOK 
TWABPCSV 
TWABPSCD 
TWACALL 
TWACOND 
TWAEOJSW 
TWAMPCE 
TWAMPCPT 
TWAMPSFG 
TWAMPSID 
TWAMSG 
TWAMSGID 
TWAMSGNO 
TWAMSGO1 
TWAMSGO2 
TWAMSGO3 
TWAMSGO4 
TWAN1PTR 
TWAOFFST 
TWAPARMC 
TWAPSBDL 
TWAPSBN 
TWAPSBNM 
TWAPSW 
TWARCODE 
TWARSTRT 
TWASCHDC 
TWATSBUF 
TWATSLEN 
TWATSOBL 
TWATSOE 
TWAWLIST 
TWAXCBDL 
TWAXCBN1 
TWAXCBN2 
TWAXCB2 
TWAXCB3 
TWAXNAME 


Cross Reference 


Hex 


Offset 


0 
E2 
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Hex 
Value 


0100 


80 


40 


28 
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UIB - User Interface Block 
DSECT Name: DLIUIB 


This control block is used by extended DL/I call interface support (along with CICS/VS high-level language 


support). This section contains scheduling and system call status information returned to the user. (Prior to Version — 


1.4, this information was returned to the user in the TCA.) 





UIB | | 

Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) Description 
@) (0) 0 DLIUIB 
0 (0) 4 UIB Extended call user 
interface block 

0 (0) 4 UIBPCBAL PCB address list 

4 (4) 2 UIBRCode DL/I return codes 

4 (4) 1 UIBFCTR Return code 

5 (5) 1 UIBDLTR Additional information 

6 (6) 1 (2) | Reserved 

8 (8) 4 Length is fullword 

. multiple 
UIBLEN paca Gs. Vinoaste "*-UIB" length of UIB 
Cross Reference 
Hex Hex 

Name Offset Value 
DLIUIB 0 
UIB 0 
UIBDLTR 5 
UIBFCTR 4 
UIBLEN 8 08 
UIBPCBAL O 
UIBRCODE 4 
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UIB - User Interface Block 


( DSECT Name: DLZUIB 


The user section of this control block is used by extended DL/ call interface support (along with CICS/VS 
high-level language support). This section contains scheduling and system call status information returned to the 
user. (Prior to Version 1.4, this information was returned to the user in the TCA.) A system section of the UIB 
follows the user section. It is used by DL/I as task-local storage. Unlike PST storage, UIB storage is not released at 


scheduling termination. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length ~ Name (Bit) 
0 (0) O DLZUIB 
O (0) 4 UIB 
0 (0) 4 UIBPCBAL 
( 4 (4) 2 UIBRCode 
— 4 (4) 1 UIBFCTR 
5 (5) 1 UIBDLTR 
6 (6) 1 (2) 
8 (8) 4 
_ UIBLEN eee Meee 
( - System section of the UIB 
_ DL/I online task control blocks 
8 (8) 4 UIBPST 
12 (C) 4 UIBUTCA 
16 (10) 4 -UIBSDIB 
20 (14) 4 UIBACTA 





DL/I online task status information 


24 (18) 8 UIBPROG 
32 (20) 4 UIBSUSP 
36 (24) 4 UIBTSTAT 
40 (28) 8 UIBPSB 
48 (30) 8 UIBSPSB 





Description 


Extended call user interface 
block 


PCB address list 

DL/I return codes 
Return code 

Additional information 
Reserved 


Length is fullword 
multiple 


"*-UJIB" length of UIB 


Task PST address 
A(CICS/VS user TCA) 
System DIB address 


A(ACT entry) of program 
which issued last PCB call 


Name of current program 


Max task suspend chain 
a(user TCA of next task) 


Task PSB schedule status 


CMAX = maximum task 
suspended 

CONF = intent conflict 

SUSP SCHD = currently 

SCHEDULED TERM = normal 

TERMINATION ABND = 

abnormal termination 


PSBNAME from last PCB call 


Name of PSB currently 
scheduled 
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56 (38) 1 UIBTYPSB 
BG. «(350 3 UIBLOPSB 
60 (3c) 1 UIBPRIOR 
61 (3D) 3 UIBTSKID 


DL/I online call status information 
64 (40) 8 UIBDPROG 
72 (48) 4 UIBFUNC 
76 (4c) 4 UIBIPCBA 

80 (50) 2 UIBICODE 

82 (52) 2 

84 (54) 1 UIBFLAG1 


UIBREMOT 
UIBHLPI 
UIBXRPSB 


UIBX1 


UIBMPS 
UIBTERM 
UIBDB 
UIBSCHD 


85 (55) 1 UIBFLAG2 
UIBDUMP 


UIBTERM1 


UIBTERM2 


UIBTERM3 


UIBTERM4 
UIBTERM5 


UIBTERM6 
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Type of PSB 
on local PSB 

remote PSB 

local and remote 

PSBS 


tat 
ty! 


Location of PSB : 


"loc' = on local syste 
"rem' = on remote system 
"XRM' = on local and remote 


MAXTASK suspend priority 


Current CICS/VS task id 


Reserved 

Call function type 

Internal A(PCB address list 
Internal DL/I return code 
Reserved 

UIB flag byte 


"X'80'" PSB on remote 
system indicator 


"X'4O'" HLPI command level 
program 


"X¥'20'" Remote with local 
PSB schedule 


"x'10'" Reserved 


"X'O8'" UIB acquired for 
MPS task 


nytogm Term call 
indicator 


"xX'O02'" Data base call 
indicator 


"x'O1'" Schedule call 
indicator 


UIB flag byte 
"X'80'" Task dump taken 


"X'4O'" Abend during 
buffer purge 


"X'20'" DL/I phase 1 term 
complete 


"xX'10'" Reserved 
"x'O8'" Reserved 
"x'OQ4'" Reserved 


"x'02'" Reserved 
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UIBTERM7 aed "X'O1'" Reserved 
86 (56) 1 UIBFLAG3 CMF clock status 
UIBCLK1 ‘ie "X'80'" CMF clock 1 started 
UIBCLK2 Pm ler : "X'4O'" CMF clock 2 started 
UIBCLK3 es ie ; "X'20'" CMF clock 3 started 
UIBCLK4 de A "X'10'" CMF clock 4 started 
UIBCLK5 Wires "X'O8'" CMF clock 5 started 
UIBCLK6 aes a "X'O4'" CMF clock 6 started 
UIBCLK7 ary oe "X'O2'" CMF clock 7 started 
UIBCLK8 srl "X'O1'" Reserved 
87 (57) 1 UIBRSTAT Local and remote status 
(— UIBXBGUN 1... .... "X'80'" XPSB schedule 
Minit call in progress 
UIBXLOC geliaces - eases "X'4O0'" Local PSB scheduled 
UIBXREM le. 2 "X'20'" Remote PSB scheduled 
UIBXSTOR o4 7 "X'10'" PCB list storage 
acquired 
UIBXUNSC oe "X'O8'" Local PSB 
_ unscheduled 
( UIBX2 wae "X'O4'" Reserved 
UIBX3 G. wecue "X'02'" Reserved 
UIBX4 ee. el "X'O1'" Reserved 
DL/I online task work areas 
88 (58) 4 UIBMSGPM Message parameter list 
se 92 (5C) 4 UIBMSGP2 Second message parameter 
(- 96 (60) 4 UIBMSGP3 Third message parameter 
100 (64) 4 UIBWORK Work area 
104 (68) 4 UIBTRCSV (18 DLZOLTOO register save area 
176 (BO) 4 UIBREGSV (18 Register save area 
248 (F8) 4 Length is fullword multiple 
UIBSLEN Wa: SThe-ees "*-UIB" length of system UIB 
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Cross Reference 


Name 


DLZUIB 
UIB 
UIBACTA 
UIBCLK1 
UIBCLK2 
UILBCLK3 
UIBCLK4 
UIBCLK5 
UIBCLK6 
UIBCLK7 
UIBCLK8 
UIBDB 
UIBDLTR 
UIBDPROG 
UIBDUMP 
UIBFCTR 
UIBFLAG1 
UIBFLAG2 
UIBFLAG3 
UIBFUNC 
UIBHLPI 
UIBICODE 
UIBIPCBA 
UIBLEN 
UIBLOPSB 
UIBMPS 
UIBMSGPM 
UIBMSGP2 
UIBMSGP3 
UIBPCBAL 
UIBPRIOR 
UIBPROG 
UIBPSB 
UIBPST 
UIBRCODE 
UIBREGSV 
UIBREMOT 
UIBRSTAT 
UIBSCHD 
UIBSDIB 
UIBSLEN 
UIBSPSB 
UIBSUSP 
UIBTERM 
UIBTERM1 
UIBTERM2 
UILBTERM3 
UIBTERM4 
UIBTERM5 
UIBTERM6 


Hex 


Otfset 


Hex 
Value 


40 


08 


08 


80 
01 


F8 


Name 


UIBTERM7 
UIBTRCSV 
UIBTSKID 
UIBTSTAT 
UIBTYPSB 
UIBUTCA 
UIBWORK 
UIBXBGUN 
UIBXLOC 
UIBXREM 
UIBXRPSB 


~UIBXSTOR 


UIBXUNSC 


 UIBX1 


UIBX2 
UIBX3 
UIBX4 
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of 
i ee 





a 
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XCB1 - MPS Batch Partition Communication Area 
( * DSECT Name: DLZXCB1 
The DLZXCB1 macro maps the area behind the MPS batch partition XECB which is used to pass data and control 


information back and forth between the MPS batch partition and the online partition MPS transactions. These online 
transactions are the Master Partition Controller (MPC) and the Batch Partition Controller (BPC). 


Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
O (0) 0 DLZXCB1 
0 (0) 4 XCB1ECB Batch partition ECB 
4 (4) 4 XCB1PSB Pointer to PSB name 
8 (8) 4 XCB1PROG Pointer to program name 
. 12 (C) 4 XCB1CNT Address of number of parms 
( } XCB1HIGH 11...  “XCBICNT” on adnitial 
ai XPOST, address of highest 
partition addr + 1 
16 (10) 4 XCB1PARM (18) Address of call parameters 
88 (58) 4 XCB1SDIB System DIB address (for 
HLPT) 
92 (5C) 1 XCB1FLAG Flag byte 
mo XCB1EOJ 1 "X'O1'" EOJ indicator 
C XCB1PLI > eats. “XUO2" Paton 4f PH/I 
XCB1RST i eee "X'O4'" MPS restart 
processing on 
XCB1CPRS TN  aaid "x'O8'" Checkpoint/restart 
call 
XCB1CRP al, “Bedi "X'10'" Continue restart 
processing even though 
a checkpoint ID verification 
( \ is not possible 
coe ; 
93 (5D) 1 XCB1HLPI RO on call to PRH 
94 (5E) 1 XCB1PPIK Batch partition PIK 
95 (SF) 1 XCB1RES Reserved for future use 
96 (60) 2 XCB1TSOE TSQ entry number 
98 (62) 4 XCB1CPID Current VSE checkpoint ID 
102 (66) 26 XCB1JBID. Job ID next 4 fields 
102 (66) 8 XCB1JBNM Job name 
170 (6E) 2 XCB1PTID Partition ID 
112 (70) 8 XCB1DATE Job start date 
120 (78) 8 XCB1TIME Job start time 
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Cross Reference 





Hex Hex 
Name Offset Value 
DLZXCB1 0 
XCB1CNT ee 
XCB1CPID 62 
XCB1CPRS 5C 08 
XCB1CRP 5C 10 
XCB1DATE 70 
XCB1ECB @) 
XCB1EOJ 5C 01 
XCB1FLAG 5C 
XCB1HIGH C OC 
XCB1HLPI 51) 
XCB1JBID 66 
XCB1JBNM 66 
XCB1PARM 10 
XCB1PLI 5C 02 
XCB1PPIK 5E 
XCB1PROG 8 sett 
XCB1PSB 4 (~~ 
XCB1PTID 6E WY 
XCB1RES 5F 7 
XCB1RST 5C O4 
XCB1SDIB 58 
XCB1TIME 78 
XCB1TSQE 60 








5-208 DL/I DOS/VS Logic Manual, Volumel 


Licensed Material—Property of IBM 


XMPRM - HDAM/HIDAM User Secondary Index Suppression Routine 
( * Interface Table 
- DSECT Name: DMBXMPRM 


This table is described as part of the general structure and description of the data management block (DNB). 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
6) (0) 0 DMBXMPRM 
O (0) 8 DMBXMSGN Name of indexed segment 
8 (8) 8 DMBXMXDN Name of XDFLD 
16 (10) 8 DMBXMXNM Name of user exit routine 
es 24 (18) 4 DMBXMXEP Entry point of user exit 
| routine 
28 CLE) 2 DMBXMPLN Length of index 
maintenance parameters 
30 (1E) 2 Reserved 
32 (20) 4 DMBXMRES Address of the next 
secondary index suppression 
routine interface table 
X'FFFFFFFF' if this is the 
( last table 
ke Cross Reference 
Hex Hex 
Name Offset Value 
DMBACB 0 OO 
DMBVSALN O OO 
DMBXMPLN TC 
DMBXMPRM O 
DMBXMRES 20 
a DMBXMSGN 0 
( | DMBXMXDN 8 
be DMBXMXEP 18 
DMBXMXNM 10 
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XWR - Index Work Record 


DSECT Name: DLZPRXWR 





This DSECT describes an index work record that is created by the partial reorganization utility while performing 
pointer maitnenance. 





Offsets Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) Description 
0 (0) 0 XWR 
0. (0) 4 XWRSTART 
O (0) 2 XWRHLL VLR length control field 
2 (2) 2 XWRHOO VLR control binary zeros 
4 (4) 4 XWRRMOVE New RBA’ of a moved segment 
8 (8) 4 XWRRCOMP Old RBA of a segment for ( ‘ 
compare ae? 
12 (C) 4 XWRFSEQ Record sequence number for 
nonunique index 
16 (10) 2 XWROACT Offset in ACT which built 
this record 
18 (12) 1 XWRCTYPE | Record type code 
19 (13) 1 XWRGF LAG Processing option flags 
20 (14) 1 XWRCRDB Data base id of segment to 
be updated 
21 (15) 1 XWRCRDSG Data set group id of 
segment to be update 
XWRLF IX ee Wl a "*-XWRSTART" length of 
fixed part of record 
22 (16) Var XWRCKEY Key of segment to be updated 
Cross Reference fo 
Hex Hex 
Name Offset Value 
XWR 0 
XWRCKEY 16 
XWRCRDB 14 
~ XWRCRDSG 1S 
XWRCTYPE 12 
XWRFSEQ C 
~ XWRGF LAG 13 
XWRHLL O 
XWRHOO 2 
XWRLF' IX 15 16 
XWROACT 10 
XWRRCOMP 8 
XWRRMOVE 4 
XWRSTART O 
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Record Layouts 


C The rest of this section provides layouts and field descriptions for the following 
—— records: 


Accumulation Header Record 
Accumulation Record 
Application Program Scheduling Record 
Application Program Termination Record 
Checkpoint Log Record 
Checkpoint Record 
Control Data Set 
Data Base Log Record 
Data Record (Input) 
Data Record (Output) 
Date/Time Table 
ae Delete Work Area 
( Delete Work Space Prefix 
aa DL/I Control Record 
Dump Header Record 
Dump Record Prefix 
File Open Record 
Header Record (Input) 
Header Record (Output) 
Index Maintenance Work Area 
List Control Block 
He Output Record Containing Segment Prefix 
( | Output Table Record 
Short Segment Table 
Sorted List Block: 
SSA for GU Call by Key 
SSA for GU Call by RBA 
SSA for the XMAINT Call to the Analyzer 
Statistics Record 
Description of Variable Output 
Work File 1 
Description of Variable Input 
Work File 3 
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| Record/Block Structures 


The general structure of DL/I log records, CICS/VS journal records, and 


CICS/VS journal blocks is shown in Figure 5-7, Figure 5-8 , and Figure 5-9, 
respectively. 





CONTINUED ACCORDING TO DSECT 





0 2 4 
Note: DL/I Log Records are described under ‘’Data Base Log Records.” 


| | JOURNALLED —_ 
USER PREFIX SATA -_ 


| Figure 5-7. DL/I Log Record 





Figure 5-8. CICS/VS Journal Record 






LL bb CICS/VS LABEL RECORD 


{ 
| Wy 

CICS/VS JOURNAL RECORDS ; — 

in any 
| combination 
DL/I| LOG RECORDS | 
' Figure 5-9. Layout of a Journal Block 
aed 
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Accumulation Header Record 


( | This record is used by modules DLZUC350 and DLZURDBO. 
Hex Dec Name Length Description 
0 0 HLENGTH 2 Length of cum header record 
2 2 HSPACE 2 Zeros 
4 4 HCODE 1 Header record ID X‘25’ 
5 5 HFLG 1 Type of data set 
X‘02’ VSAM ESDS 
X‘04’ VSAM KSDS 
6 6 HLRECL 2 Record length 
8 8 HORG 1 Prefix organization code 
9 9 HPURGDT 7 Purge date/time for data base data set 
9 9 HPURDATE 3 Purge date for data base data set -YYDDDF 
C 12 HPURTIME 4 Purge time for data base data set -HHMMSSOF 
a 10 16. HDDNAME 8 Data set symbolic filename 
( : i824  HDBNAME_ 8 Data base name 
bo 20 32 HDSID 1 Data set ID 
21 33 HDATE 3 Run date - YYDDDF 
24 36 HTIME 4 Run time - HHMMSSOF 
28 40 HSEQ 2 Zeros 
2A 42 HBLKSIZE me: Zeros 
Accumulation Record 
C This record is used by modules DLZUC350 and DLZURDBO. 
Hex Dec Name Length Description 
0 0 CLENGTH 2 Length of cum record 
2 2 CSPACE 2 Zeros 
4 4 CCODE 1 X‘50’ record identifier 
5 5 CFLG 1 Type of data set/entry 
X‘01’ VSAM KSDS/Entry was VSAM ERASED 
X‘02’ VSAM ESDS 
s X‘04’ VSAM KSDS 
( , 6 6 CIDLN 2 Length of CDATAID field 
8 8 CDBNAME 8 Data base name 
10 16 CDSID 1 Data set ID 
11 17 CDATE 3 Date - YYDDDF 
14 20 CTIME 4 Time - HHMMSSOF 
18 24 CSEQ 2 Sequence number 
1A 26 CCOUNT 2 Number of data elements in CDATA 
iC 28 CDATAID Var KSDS prime key or ESDS RBN 
CDATAOL Var One or more 4 byte data elements: 
bytes 0-1 - offset into data set record 
bytes 2-3 - length of corresponding CDATASEG 
CDATASEG Var One or more segment data entries to be moved into data set 


record. 
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Application Program Scheduling Record 


Hex 


man aRNO 


Application Program Termination Record 


DLZBACKO. 
Hex Dec Name Length 
0 0 PLENGTH 2 
> 2 PSPACE 2 
4 4 ALLOGFLG 1 
5 5 ALPSBNAM 8 
D 13 ALID 1 
E 14 TSKSTAT 40 
36 54 CICSID 3 
Checkpoint Log Record 
Hex Dec Name Length 
0 0 CHKPLEN 2 
2 2 CHKPSPC 2 
4 4 CHKPCODE 1 
Flag Name Hex Code 
CHKPLRID 41 
) 5 CHKPPSB 8 
D 13 CHKPID 8 
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This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 


DLZBACKO. 
Dec Name Length 
0 LENGTH 2 
2 SPACE 2 
4 LOGFLAG 1 
5 SCHDCODE 1 
6 PSBNAME 8 
14 CICSID 3 


Description 


Length of record 

Binary zero 

Record type code - X‘08’ 

Task ID 

PSB name 

Packed CICS Transaction ID (online only) 


This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 


Description 


Halfword binary length of logical record 

Halfword reserved for system use (binary zero) 

Identifies this logical record as application program 
termination record; value is X‘07’ 

PSB name 

TASK ID 

10 fullwords of Accounting from PSTACCT (online only) 
Packed CICS transaction I.D. (online only) 


Checkpoint log records are used to restart a job near its point of failure. The 
records are created and written on the DL/I log (if data base logging is active) if 
requested by the user via checkpoint calls (CHKP). Each log record contains a 
user-supplied unique checkpoint identification passed with the CHKP call. 


In case of a job failure in a batch environment, the backout utility can be run to 
backout data base changes occurring since the last checkpoint record was written. 
For MPS and/or online tasks with CICS/VS dynamic transaction backout active, 
backout is performed automatically to the last checkpoint when a task fails. 


Description 


Length of log record 
Blanks/zeros 
Log record ID 


Meaning | 

Checkpoint Log record ID 
Checkpoint PSB name 
User checkpoint ID 











foo 


Bd 
ce 
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Hex Dec Name Length Description 
15 21 CHKPRLEN Length of checkpoint log record 
Checkpoint Record 
This DSECT (RCHKREC) defines the format of the checkpoint records within the 
unloaded data base for HD reorganization unload/reload utilities. 
Hex Dec Name Length Description 
0 0 RCHKPTID 1 Identifies checkpoint record; Always X‘00’ 
1 1 RCHKNAME 6 Constant for checkpoint record; Always C‘CHKPNT’ 
7 7 RCHKNUM 4 Checkpoint number; 1-9999 (decimal) 
B 11 1 Comma, for message to SYSLOG and SYSLST 
C 12 RCHKVOL1I1 6 If tape, file serial number of output volume one at 
checkpoint time. If DASD - ******, 
12 18 1 Comma, for message to SYSLOG and SYSLST 
13 19 RCHKVOL2 6 If tape, file serial number of output volume two at 
checkpoint time. If DASD - ******, 
19 25 1 Comma, for message to SYSLOG and SYSLST 
1A 26 RCKSEGNM 8 Segment name of root segment in process at checkpoint time 
22 34 4 Reserved for future use 
26 38 RCHKRECL 2 Length of I/O area needed for GU call at restart time 
28 40 RCHKPOSC 4 RBN of current record, if HD organization 
2C 44 RCHKPTNR 1 Number of checkpoint records (1 or 2) 
2D 45 RCHKEYLN 1 Key length of current segment, if HISAM 
2E 46 RCKEYVAL 236 Segment sequence field value, if HISAM 
11A 282 Reserved 12. Reserved 
126 294 RCHKSEG 4 Total number of segments unloaded 
12A 298 RCHKROOT 4 Total number of root segments unloaded 
12E 302 RCHKREND Var Statistics table 
Notes: 
1. Dummy checkpoint record does not contain statistics table. 
2. Checkpoint message written to SYSLOG and SYSLST consists of message 
prefix DLZ381I followed by bytes 1 - 34 of the checkpoint record. 
Control Data Set 
Macro DLZUCDS0 contains the DSECT defining format of a control list entry. 
One or more list entries may be contained in the control list. The control list may 
spread over one or more control list blocks. 
*** Control Information and Identifier*** 
Hex Dec Name Length Description 
0 0 LECELCNT 2 Number of 1600 byte records in control data set 
2 2 LELSTLOC 2 Displacement to next entry 
4 4 LECDSID 20 Identifier: ‘ CONTROL DATA SET ’. 
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Hex Dec Name Length Description 








18 24 LEFLG4 1 Flag byte 4: f ~ 
Flag Name Hex Code Meaning 
LESTAT 80 Statistics to be provided 
LESUMM 40 Give summary for message DLZ978I 
19 25. +Unnamed 1 **Reserved** 
1A 26 LESRTSZE 2 Maximum work file record length used as SORT size 
: parameter by prefix resolution utility (DLZURG10). 
***Data Base List Entry*** 
Hex Dec Name Length Description 
0 0 LEFPTR 4 List entry forward pointer (to next data base list entry) 
4 4 LENAME 8 DBD name. 
C 12 LESLPTR 4 List entry sublist pointer (to first segment list entry) _ 
10 16 LECRNO 2 Input control card number —_ 
12 18 LELEN 1 Length of list entry Ne oe 
13 19 LEFLG1 i Flag byte 1: 
Flag Name Hex Code Meaning 
LEF1SOPT 80 User specified scan method option 
LEF1SMET 40 If bit 1=0 use SEQ scan method 
| If bit 1=1 use SEG scan method 
LEF1S | 02 Data base is scanned 
LEFIR 01 Data base is reorganized 
LEFI1I 00 Data base is initially loaded 
***Segment List Entry*** 
Hex Dec Name Length Description | 
0 0 LEFPTR 4 List entry forward pointer (to next segment list entry) 
4 4 LENAME 8 Logical parent segment name. 
Cc 12 LESLPTR 4 List entry sublist pointer (to first secondary list entry) 
10 16 LECRNO <2 Input control card number 
12 18 LELEN 1 Length of list entry 
13 19 _LEFLG1 1 Flag byte 1: 
Flag Name Hex Code Meaning 
LEF1SOPT 80 User specified scan method option 
LEF1SMET 40 If bit 1=0 use SEQ scan method 
If bit 1=1 use SEG scan method 
LEF1S 02 Data base is scanned 
LEF1R 01 Data base is reorganized 
LEF1I 00 Data base is initially loaded 
14 20 LEPSDB 4 PSDB for segment entry 
18 24 LELSDB 4 LSDB for segment entry 
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Hex 


moO Fr oO 


10 
12 
13 


14 
15 


17 


Dec 


12 
14 


15 
16 
18 
19 


20 
21 


23 


***Secondary List Entry*** 


Name Length Description 
LEFPTR 4 List entry forward pointer (to next secondary list entry) 
LENAME 8 Referenced data base name. 
LEFDLP 2 Length of logical parent concatenated key. 
LEFLG3 1 Flag byte 3: 
Flag Name Hex Code Meaning 
LET23 80 Use type 20/30 records. 
LELCSQ 40 Use logical child sequence field. 
LENLC 20 No logical child found for logical parent 
LELPCK 02 Use logical parent concatenated key. 
LELPOA 01 Use logical parent old address. 
Unnamed 1 **Reserved** 
LEFDLC 2 Position of logical child pointers in prefix of logical parent 
LELEN 1 Length of list entry 
LEFLG1 1 Flag byte 1: 
Flag Name Hex Code Meaning 
LEF1SOPT 80 User specified scan method option 
LEF1SMET 40 If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
LEF1S 02 Data base is scanned 
LEF1IR 01 Data base is reorganized 
LEF1I 00 Data base is initially loaded 
LELCSC 1 Logical child’s segment code 
LEFLG2 1 | Flage byte 2: 
Flag Name Hex Code Meaning 
LECTR 80 Update counter 
LELCF 40 Update logical child forward pointer 
LELCL 20 Update logical child last pointer 
LELP 10 Update logical parent pointer 
LELTF O08 Update logical twin forward pointer 
LELTB 04 Update logical twin backward pointer 
LECUS 02 Counter used this logical child 
Unnamed 2 **Reserved** 
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Data Base Log Record 

Hex Dec Name 

0 0 DLENGTH 

2 2 DSPACE 

4 4 DLOGCODE 
5 > DLOGFLG1 
6 6 DLOGFLG2 
7 7 DLOGFLG3 
8 8 DIDLN 

A 10 DOFFSET 

C 12 DDATALN 

E 14 DCCODE 

10 16 DPGMNAME 
18 24 DDBDNAME 


Length 


2 
2 
1 


1 


Bits 
Q-3 
4-7 
1 


Bits 

O=1 

1-3=001 
=010 
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This record is used by modules DLZRDBLO, DLZRDBL1, DLZBACKO, 
DLZLOGPO, DLZURDBO, DLZUC150, and DLZUC350. 


Description 


Length of record 

Zero 

Log record ID 

X‘’50’ = Data base log record 

X‘51’ = Old copy of a replaced segment 


Task ID a 
Count of FSE records present 


Index maintenance record 
Physical replace 

Physical delete 

Physical insert 

Logical delete 

POINTER maintenance record 
Counter Maintenance 

Last record of a change group 
ESDS data set 

KSDS data set 

HS organization 

HD organization 

New block call 


REPL call 

DLET call 

ISRT call 

Modification by control region 
Modification by message or batch message program 
Modification by batch program 

Record written by backout 

First log record of a segment 

Last log record of a segment 

Length of DDATAID field 

Data offset from beginning of block 
Length of DDATA field 

Byte 1 - PPST ID 

Byte 2 - DL/I Status Code (Right byte) 
PSB name 

Data base name from the DMB 
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Hex 


( . 20 
- 21 
24 
28 


2A 


Hex 


Hex 
Hex 
Hex 





Dec 


32 
33 
36 
40 
42 


Dec 


Dec 


Dec 


Dec 


Dec 


Name 


DDSID 
DDATE 
DTIME 
DSEQ 
DDATAID 


Name 


DDATA 


Name 


DDATA 


Name 


DDATA 
DFSEOFF 
DFSE 


Name 


DDATA 
DFSEOFF 
DFSE 


Name 


DDATA 


DCOUNTER 


Description 


File identification within the DMB 
Date - YYDDDF 

Time - HHMMSSOF 

Sequence stamp 

KSDS - KSDS prime key 

ESDS - Relative block number 


POINTER maintenance record (DDATALN is set to H‘4’) 


Length 


4 
4 


Description 


New pointer value 
Old pointer value 


LOGICAL DELETE record (DDATALN is set to H‘2’) 


Length 


2 
y 


Description 


Segment code and new delete byte 
Segment code and old delete byte 


PHYSICAL INSERT record (DDATALN is set to segment length) 


| Length 


V* 
2 
4 


Description 


New segment data 

Offset to FSE 

New FSE value 

If more than one FSE changes, DFSEOFF and DFSE are 
repeated for each additional one. 


PHYSICAL DELETE record (DDATALN is set to segment length) 


Length 


V* 
2 
4 


Description 


Old segment data 

Offset to FSE 

New FSE value 

If more than one FSE changes, DFSEOFF and DFSE are 
repeated for each additional one. 


PHYSICAL REPLACE record (DDATALN is set to segment length) 


Length 
V* 


VF 


Description 


Old segment data - DLOGCODE = X‘51’ 

New segment data - DLOGCODE = X‘50’ 

= varies with segment length 

The last four bytes of every log record contain the log record 
sequence number. Numbers are incremented by one. The 
sequence number of the first record is one. 
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Data Record (Input) 

Hex Dec Name 

0 0 Unnamed 

4 4 DSIDIN 

5 5 Unnamed 

8 8 Unnamed 

Data Record (Output) 

Hex Dec Name 

0 0 CONTOUT 

4 4 DSIDOUT 

5 5 BLNKDOUT 

6 6 DSRECLN 

8 8 DATA 

Date/Time Table 

Hex Dec Name 

0 0 TABFLAGI 

1 1 TABFLAG2 

2 2 TABFLAG3 
Flag Name 
TABF3N 
TABF3DT 

3 3 TABFLAG4. 


Length 


4 
1 
3 
Var 


Length 


Length 


1 
1 


1 


Hex Code 


80 


40 


1 
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This record is used as input to module DLZURRLO. 


Description 


ESDS RBA identifier; unused if KSDS 

Character I if KSDS; O if ESDS 

Reserved 

KSDS or ESDS physical record image. The first four bytes 
contain the VSAM relative byte address (RBA) of the next 
ESDS record containing overflow dependent segments for 
the root segment. The RBA is zero if no (more) ESDS 
records follow. The last byte of the data record contains a 
special physical code X‘0’. If the data base contains only 
HISAM root segments and ACCESS=SHISAM, the physical 
code and RBA do not exist. 


This output record is used by module DLZURULO. 


Description 


ESDS RBA identifier; unused if KSDS 

Character I if KSDS; O if ESDS 

(Not used) 

Record size + prefix length 

KSDS or ESDS physical record image. The first four bytes 
contain the VSAM relative byte address (RBA) of the next 
ESDS record containing overflow dependent segments for 
the root segment. The RBA is zero if no (more) ESDS 
records follow. The last byte of the data record contains a 
special physical code X‘0’. If the data base contains only 
HISAM root segments and ACCESS=SHISAM, the physical | 
code and RBA do not exist. 


This record is used by modules DLZUCCT0 and DLZUC150. 


Description 


Blank. Used as table delimiter 

Contains a 0 or 1 to denote routing for the data base in this 
table 

Contains flags as follows: 


Meaning 

Record to LOGOUT 
Purge date specified 
Reserved for future use 


- 
| 
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Hex Dec Name Description 
4 4 TABFLAGS Reserved for future use 
8 8 TABFLAG6 Contains date/time, if specified 


Delete Work Area 


This record is used by module DLZDLDOO. 


Hex Dec Name Description 
0 0 DLTRSCID 7 Resource ID for PI queuing (must be first in WKA) 
0 0 DLTRSCRB 4 RBA portion of resource ID 
4 4 DLTCHN 8 Chain (prior content PSTWRKD1-2) 
4 4 DLTPWAID 4 ID of current work area; DMB number, ACB number, and 
work area sequence number 
4 4 DLTRSCID 3 DMB/ACB number part of resource ID 
4 4 DLTDMBNO 2 DMB number 
8 8 Unnamed 4 Prior scan exit address (PSTWRKD2) 
C 12 DLTWANXT 4 Address of next WKA 
10 16 DLTWASW 1 Switch 
Flag Name Hex Code Meaning 
DLTWSBEG 01 First work area in work space 
DLTERFLG 02 R-O record flag required 
DLTLRFLG 04 R-O record flag required due to LP LC counter update 
DLTVRFLG 08 Verifies are required 
DLTSCFLG 10 Pre-scan was done 
DLTIMFLG 20 Index maintenance was done 
10 16 DLTWAPRI 4 Address of prior WKA 
14 20 DLTDMB 4 DMB address of this WKA 
18 24 DLTSPSDB 4 Scan start PSDB 
1C 28 DLTLPSDB 4 Scan end PSDB 
32 DLTSLEV | 2 Level at which scan started 
22 34 DLTTEMPH 2 Half word temporary save area 
24 36 DLTESECL 4 Secondary list address causing exit 
28 40 DLTEDMB 4 Exit DMB address 
2C 44 DLTEPSDB 4 Prior DMB’s PSDB (exit point) 
30 48 DLTERBN 4 Exit RBN 
34 52 DLTLPKOF 2 Offset from DLTWA to concatenated key 
36 54 DLTWASZ 2 Length of this work area 
38 56 DLTMID 36 ‘Middle’ of WKA 
38 56 DLTPLT 4 Save area for prior L/C on twin chain 
3C 60 DLTCLT 4 Save area for current L/C on twin chain 
40 64 DLTNLT 4 Save area for next L/C on twin chain 
44 68 DLTTEMP!1 4 Working register save area (R6) 
48 72 DLTTEMP2 4 Working register save area (R7) 
4C 716 DLTTEMP3 4 Working register save area (R8) 
50 80 DLTTEMP4 4 Working register save area (R9) 
54 84 DLTLEVEL 8 Level information beginning 
54 84 DLTRFLG 1 Flag byte 
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Hex Dec 
54 84 
58 88 
5C 92 
64 100 
88 136 


Name 


Flag Name 
DLTSVPP 
DLTSVPC 
DLTLDO 
DLTKEYSW 
DLTTEFLG 
DLTPSDB 
DLTRBN 
DLTLEVLN 
DLTMIDLN 
DLTWALN 


Delete Work Space Prefix 


Hex Dec Name 

0 0 DLTBLKNM 
4 4 DLTBUFFA 
8 8 DLTNXTWS 
C 12 DLTPRIWS 
10 16 DLTSIZWS 
14 14 

DL/I Control Record 

Hex Dec Name 

0 0 RECDATCR 
3 3 - RECTIMCR 
8 8 RECDATRE 
B 11 RECTIMRE 
10 16 RECDATER 
13 19 RECTIMER 
18 24 RECNXRBA 
1C 28 RECDOS 

1E 31 RECVERS 
22 34 RECPTF 

24 36 RECLKSDS 
28 40 RECLESDS 
2C 44 RECORGAN 


Length 


Hex Code 
01 
02 
03 
04 
08 
4 
4 
8 
36 
92 
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Description 


Meaning 

Save segment and parents 

Save segment and physical children 
Logical delete only 

Key stored for this level 
Temporary lock enqueue was done 
Current PSDB this level 

RBN of segment this level 

Length of level information entry 
Length of last half work area 
Length of basic delete work area 


This record is used by module DLZDLDOO. 


Length 


Sn 


Description 


Block number of buffer (from PSTBLKNM) 
Address of buffer prefix (from PSTBUFFA) 
Address of next work space 

Address of prior work space 

Usable size of this space 

Reserved 


This record is used by module DLZDLOCO. 


Length 


eaehARN WW hNAW ON WN W 
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Description 


Creation date - YYDDDF 
Creation time - HHMMSSTHOF 
Recovery date - YYDDDF 
Recovery time - HHMMSSTHOF 
Reserved 

Reserved 

Not used 

DL/I component code (DLZ) 
Version and release level 

PTF number 

KSDS record length (HISAM only) 
ESDS record length 

Data base organization 


ke 


[om 
\ 
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Name Character Meaning 
RECHDAM D HDAM 
RECHIDAM I HIDAM 
RECHISAM §S HISAM 
Hex Dec Name Length Description 
2D 45 Var Reserved to end of control interval 


Dump Header Record 
This record is used by modules DLZUDMPO and DLZURDBO. 

Hex Dec Name Length Description 

0 0 DHSAMCTL 1 Reserved for future use 

1 1 DUMPID 1 Character D 

2 2 DCBNOOUT 2. Reserved for future use 

4 4 DUMPDBDN_ 8 Name of the DMB devised from the Data dase Description 

: (DBD) 

C 12 DIDDNOUT 8 Contains the name of the key sequenced data set if this is 
dump of a KSDS data set 

14 20 DDATEOUT 4 Julian date in packed decimal - OOY YDDDF 

18 24 DTIMEOUT 4 Time in packed decimal - HHMMSSOF 

iC 28 DODDNOUT 8 Contains the name of the entry sequenced data set if this is 
dump of an ESDS data set 

24 36 DIBLKOUT 2 Contains KSDS control interval size if this is dump of KSDS 
data set | 

26 38 DIRECOUT 2 Contains KSDS record length if dump of KSDS data set 

28 40 DOBLKOUT 2 Contains ESDS control interval size if this is dump of ESDS 

| data set 

2A 42 DORECOUT 2 Contains ESDS record length if dump of ESDS 

2G 44 DKEYLEN 2 Contains KSDS key length if dump of KSDS 

2E 46 DKEYPOS 2 Contains KSDS relative key positive if dump of KSDS 

30 48 DDBDORG 1 Data set organization code 


Dump Record Prefix 
This record is used by module DLZUDMPO. 

Hex Dec Name Length Description 

0 0 COUNTOUT 4 ESDS RBA identifier; record count if KSDS 
4 4 DSIDOUT 1 Character I if KSDS; O if ESDS 

5 5 Reserved 1 Reserved for future use 

6 6 DSRECLN 2 Record size + prefix length 

8 8 DATA Var Physical record image 

File Open Record 


This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, 
~DLZUC150, and DLZUC350. | 
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Hex Dec Name Length Description 
0 0 DLENGTH 2 Length of record | f 
2 2 DSPACE1 2 Binary zero a 
4 4 DLOGCODE 1 Record type code - X‘2F’ 
5 5 DLOGFLGI1 2 Data set organization 
X‘00’ = ESDS 
| | X‘04’ = KSDS 
7 7 DSPACE2 9 Binary zero 
10 16 DPGMNAME_ 8 Data set filename (ACB) 
—~©18 24 DDBDNAME_- 8 DMB name 
20 32 DDSID 1 DSGACBNO (2 if HISAM ESDS; otherwise 1) 
21 33 DDATE 3 Binary zero 
24 36 DTIME 4 Binary zero 
28 40 DCOUNT2F 4 Log record sequence number 
Header Record (Input) 7" 
This record is used as input for module DLZURRLO. Soy 
Hex Dec Name Length Description 
0 0 Unnamed 1 _ X‘FF’ header/statistic record identifier 
1 1 IDIN 1 Character R 
2 2 RECLNOUT 2 Size of output record, including prefix 
4 4 DBDNAME 8 Name of the DMB derived from the Data Base Description 
| (DBD) 
C 12 DDNAMEI 8 Name of key sequenced data set (KSDS) Pa 
14 20 Unnamed 4 Julian date in packed decimal-O0YYDDDF Cae 
18 24 Unnamed 4 Time in packed decimal-HHMMSSOF nd 
1C 28 DDNAMEO 8 Name of entry sequenced data set (ESDS) 
24 36 BLKSIZEI 2 KSDS record length * number of eons? control interval 
26 38 LRECLI 2 KSDS record length 
28 40 BLKSIZEO 2 ESDS record length * number of ey, contro: interval 
2A 42 LRECLO 2 ESDS record length 
2C 44 Unnamed 1 0; (Not used) 
2D 45 KEYLENGI 1 KSDS key length 
2E 46 KEYPOSI 2 KSDS relative key position —_— 
Ne 7 
Header Record (Output) 
This record is used by module DLZURULO. 
Hex Dec Name Length Description 
0 0 HSAMCTRL 1 X‘FF’ header/statistic record identifier 
1 1 IDOUT 1 Character R- 
2 2 RECLNOUT 2 Size of output record, including prefix 
4 4 DBDOUT 8 Name of the DMB derived from the Data Base Description 
(DBD) 
C 12 IDDNOUT 8 Name of key sequenced data set (KSDS) 
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Index Maintenance Work Area 


Name 


DATEOUT 
TIMEOUT 
ODDNOUT 
IBLKSOUT 
ILRECOUT 
OBLKSOUT 
OLRECOUT 
IKEYLENG 
IKEYPOS 


Name 


XSAVDSGA 
XSAVPCB 
XSAVUSER 
XSAVIOPR 
XPHYSPP 
XWORKPCB 
XWORKSAA 
XWORKFNC 
XDPSDBAD 
XDSECLST 
XDRID 
XDRBAPTR 
XDDMBACB 
XNRID 
XNRBAPTR 
XNDMBACB 
XSPSDBAD 
XSSECLST 
XSRBAPTR 
XNPSDBAD 
XDSDBAD 
XSSDBAD 
XPROT 
XRPREFIX 
XSPREFIX 
XNSEGLEN 
XNKEYLEN 
STACK1 
STACK2 
STACK3 
XSAVSTC 


XCALLFUN 


Length 


NNNNNN OFF 


Length 


meee PHP HRNNNNN PHP PPP HDPHPohphao Ph AP HPHPHHH HHL 


Description 


Julian date in packed decimal-O0YYDDDF 

Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 

KSDS record length * number of records/control interval 
KSDS record length 

ESDS record length * number of records/control interval 
ESDS record length 

KSDS key length 

KSDS relative key position 


This record is used by module DLZDMXTO. 


Description 


Save location for caller’s DSG 

Save location for caller’s PCB 

Save location for caller’s I/O area 

For caller’s call list address 

Save location for physical parent pointer. 
Save location for XMAINTs PCB 

Address of SSA built by DLZDXMTO 
XMAINTs function code for call 

Address of PSDB of indexed segment 
Secondary list of indexed segment 
Indexed segment ID for enqueue 

RBA of indexed segment 

DMB and ACB numbers of indexed segment 
Indexing segment ID for enqueue 

RBA of indexing segment 

DMB and ACB numbers of indexing segment 
PSDB of index source segment 

Secondary list of index source segment 
RBA of index source segment 

Address of PSDB of indexing segment 
Index target segment SDB address 

Index source segment SDB address 
Length of protected data 

Record prefix length 

Segment prefix length 

Length of indexing segment 

Sequence field length of index pointer segment 
Return address for first level subroutine 
Return address for second level subroutine 
Return address for third level subroutine 
Save status code 

*Reserved* 

Call attributes byte | 
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Length 
Hex Code 


Licensed Material—Property of IBM 


Description 


Meaning 

Load mode 

ASRT call 

DLET call 

ISRT call 
Function is replace 
UNLD call 
Temporary switch 


Meaning 

No suppression for this index. 

Old segment was suppressed 

PTR to XDS only, no CONCAT key 
A primary index was found 

Null value suppression 

Exit routine for suppression 

XNS changed in a replace call 

Begin of record for load 


(The rest of this record starts on a fullword boundary) 


Length 


= ON © 


Hex Code 
01 
1 


Var 


Description 


-XMAINTs I/O area for call 


Reserved 
Start of segment 
Segment code 


Meaning | 


Segment code of indexing segment 
Delete byte in indexing segment 
Pointer in indexing segment 

Area for key in indexing segment 


(The SSA for the XMAINT call to the analyzer is created behind the key) 


This record is used by module DLZUSCHO. 


Hex Dec Name 
Flag Name 
ISLOAD 

-TSASRT 

ISDLET 
ISISRT 
ISREPL 
ISUNLD 

6B 107 XTSWIT1 
Flag Name 
XNOSUPR 
XOLDSUPR 
XPTRONLY 
XISPRIM 
XNULLFLD 
XEXITRT 
XDATACHN 

6E 110 XWORKPUT 

Hex Dec Name 

70 112 XWORKUSR 

70 112 XWORKDUM 

72 114 XWORKSEG 

72 114 XWORKCD 
Flag Name 
XNSEGCO1 

73 115 XWORKDEL 

74 116 XWORKPTR 

78 120 XWORKKEY 

List Control Block 

Hex Dec Name 

1C | 28 ENTLNGTH 

1E 30 COMPLOC 

20 32 COMPLNG 

22 34 NUMENT 

24 36 CHAINLOC 

28 40 CHBACK 
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Description 


The length, in bytes, of each entry in the list 

The offset from the beginning of each entry to the key field 
The length of the Key field 

The current number of entries in the list 

The location of the first of a chain of core blocks containing 
sorted list entries | 

The location of the last block in the chain 
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Hex 
2C 


30 


Output Record Containing Segment Prefix 


Dec 


44 


48 


Name 


ENTBLKSZ 


LASTLO, 
LASTHI, 
LASTMD, 
ENTLOC 


Hex Dec Name 

0 0 RGUSEGLV 
1 1 RGUHSDF 
2 2 RGUHDRLN 
4 4 RGUSEGLN 
6 6 RGUSEGNM 
E 14 RGUSEGDF 
F 15 RGUPFCTR 
13 19 IOTWFOR 
17 23 IOTWBACK 
1B 27 IOPAR 

1F 31 IOOLD 

23 35 IOSEG 
Output Table Record 

Hex Dec Name 

0 0 RGUSEGLV 
1 1 RGUHSDF 

2 2 RGUHDRLN 
4 4 RGUSEGLN 
Hex Dec Name 

0 0 SEGNAME 
8 8 SMIMCHLD 
C 12 SAIMCHLD 
10 16 WKIMCHLD 


Length 


12 


Description 


The size of each core block used for list entries (includes the 
chaining fields). This value is calculated as follows: 
ENTBLKSZ = 16*ENTLNGTH+8 

Work areas used by INSRCH and LOCSRCH 


This DSECT (IOAREA) defines the format of the unloaded data base records used 
by the HD reorganization unload/reload utilities. 


Length 


—_— 


<_fFf FP PK PRON N 


ar 


Description 


Segment code for this segment 
HSAM delete flag; always X‘80’ to denote HD 
Reorganization Unload Utility 
Length of header portion of record 
Length of data portion of record 
Segment name 

Delete flag of segment 

Counter field of prefix 

Logical twin forward pointer 
Logical twin backward pointer 
Logical parent pointer 

Old location of record 
Variable-length data field 


This DSECT (DLZUSTAT) defines the format of the statistics table within the 
unloaded data base for HD reorganization unload/reload utilities. 


Length 


1 
1 


2 
Var 


Length 


> hk fh 


Description 


Always X‘00’ 

X‘80’ for first table record and checkpoint table record 
X‘90’ for last table record 

Length 

A table containing one entry for each segment type. 


Field Description of RGUSEGLN 


Description 


Segment name 

Maximum immediate children 
Average immediate children 
Working entry for above 
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Hex Dec Name 

14 20 SMSBCHLD 
18 24 SASBCHLD 
1C 28 WKSBCHLD 
20 32 TSEGTYPE 
24 36 SEGLEVEL 
25 37 SEGPHYCD 
26 38 TABLEND 
26 38 TSEGLEN 
28 40 STATABSZ 
Short Segment Table 

Hex Dec Name 

") 0 SEGMDSNO 
1 1 SEGMCODE 
2 2 PARSEGCD 
3 3 SEGMLEVL 
4 4 Unnamed 

6 6 SEGMLENG 
Sorted List Block 

Hex Dec Name 

0 0 ENCNT 

1 1 CHAIN 

4 4 BKCHAIN 

8 8 ENTRIES 


Length 


NN RPA 


Description 


Maximum subordinate children 
Average subordinate children 
Working entry for above 

Total segments for this type 
Segment level 

Segment physical code 

Table end indicator (X‘80’) 
Segment length including prefix 
Length of each table entry 


This record is used by module DLZURULO. 


Length 


BO = pe pe 


Description 
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Data set number (not used by DLZURULO) 


Physical segment code 


Physical code of this segment’s parent 


Segment hierarchical level 


Number of logical children and fields (not used by 


DLZURULO) 
Segment length, including prefix 


This record is used by module DLZUSCHO. 


Length 
1 


3 


4 


Var 
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Description 


The count minus one of the current number of entries in this 
block (currently, the maximum value for count is 16) 

The location of the next sorted list block in the chain. In the 
last block, this field contains binary zeros. 

The location of the preceding sorted list block in the chain. 
In the first block on the chain, this field contains the location 
of the CHAINLOC field in the list control block. 


Up to 16 full entries in sorted order. 


Note: All blocks are the same size regardless of the number 
of entries contained. Unused space at the end of a block is 


not zeroed. 
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SSA for GU Call by Key 
Hex Dec Name 

0 0 KEYSEGNM 
8 8 KEYCODE 
A 10 KLEFTPAR 
B 11 KEY 

- - KRITEPAR 
SSA for GU Call by RBA 
Hex Dec Name 

0 0 RBASEGNM 
8 8 RBACODE 
A 10 RLEFTPAR 
B 11 RBA 

F 15 RRITEPAR 


SSA for the XMAINT Call to the Analyzer 


This record is used by module DLZURGUO. 


Length 


Description 


Name of segment to be retrieved 
‘*C’ - command code 

‘C - left parenthesis 

key to be retrieved 

*)’ - right parenthesis 


This record is used by module DLZURGUO. 


Length 


8 
2 
1 
4 
1 


Description 


Name of segment to be retrieved 
‘*T” - command code 

‘( - left parenthesis 

RBA to be retrieved 

‘)’ - right parenthesis 


This record is used by module DLZDXMTO. 


Description 


Name of index pointer segment 

‘**X‘ - command code 

‘( - left parenthesis 

Key value followed by right parenthesis ‘)’ 


This record is used by modules DLZURULO and DLZURRLO. 


Hex Dec Name Length 
0 0 XSEGNAME 8 

8 8 XCOMMCOD 2 

A 10 XLEFTPAR 1 

B 11 XKEYVALU Var 
Statistics Record 

Hex Dec Name Length 
0 0 Unnamed 1 

1 1 Unnamed 1 

2 2 Unnamed 2 

4 4 Unnamed 8 

c 12 Unnamed 8 

14 20 Unnamed 8 

1C 28 Unnamed Var 


Description 


X‘FF’ header/statistics record identifier 

Character S 

Number of segment types in data set group (16 bytes per 
segment type) 

Name of the DMB derived from the DBD 

KSDS filename 

ESDS filename 

A 16-byte table entry for each segment type in the data base 
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Description of Variable Length Last Field of Statistics Record When Used as Output for DLZURULO. 





Hex Dec Name Length Description aq 
0 0 SEGNAME 8 Segment name 
8 8 TSEGTYPE 4 Total number of segments unloaded 
Cc 12 SEGLEV 1 Segment level 
D 13 SEGPCD 1 Segment physical code 
E 14 TSEGLN 2 Segment length, including prefix 
Description of Variable Length Last Field of Statistics Record When Used as Input for DLZURRLO. 
Hex Dec Name Length Description 
0 0 SEGNAME 8 Segment name 
8 8 TOTSEG 4 Total number of segments unloaded 7 wo™ 
C 12 SEGLEV © 1 Segment level a 
D 13 SEGPCD 1 Segment physical code _ 
E 14 SEGLN 2 Segment length, including prefix 
Work File 1 
This record is used as the input file for DLZURG10. 

Hex Dec Name Length Description om 
0 0 ALENGTH 2 Length of work file 1 record oe 
2 2 ASPACE 2 Two bytes of zeros | 
4 4 ALTYPE 1 Type of input record 

Flag Name Hex Code Meaning 

ATYPEO0O 00 Type 00 record 

ATYPEO1 O01 Type 01 record 

ATYPE02 02 Type 02 record 

ATYPE03 03 Type 03 record 

ATYPE10 10 Type 10 record 

ATYPE20 20 Type 20 record 

ATYPE30 30 Type 30 record 

ATYPE40 40 Type 40 record 

DL/I Record Use 

Type 

00 Generated once for each use of a segment as a logical parent 

10 Generated once for each use of a segment as a logical child. 
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14 
15 


Hex 


Dec 


12 


21 


Dec 


Name 


20 


30 


40 


ALFLAG1 


Flag Name 
ALILOAD 
AL1SEQ 
ALISCAN 
ALILPCK 
AL1SQUN 
ALISEQA 
AL1CONST 
AL1ISYMB 
AL1T23 


ALFLAG2 
ALFLAG3 | 


ALEVTTR 
ALPDBNAM 
ALPSEQ 
ALPCKEY 


ALPOADDR 
ALCDBNAM 
ALCSEG 


Name 


ALCFL 
ALT0001 
ALPLSGOF 
ALCCTR 
ALPDCB 


Length 


Hex Code 


= CO 


Length 


=a bhN ee 


Description 


Generated when a segment used as a logical child contains 
logical twin forward pointers and when the logical twin chain 
cannot be resolved by using the logical child’s sequence field. 


Generated when a segment used as a logical child contains 
logical twin backward pointers and when the logical twin 
chain cannot be resolved by using the logical child’s 
sequence field. | 


Generated once for each time a segment is indexed 


Flag 1. Use this field to tell which value ALFLAG2 and 
ALFLAG3 hold. 


Meaning 

Set to 1 if ISRT; set to 0 if ASRT 

Set to 1 if sequence field is present 

Set to 1 if record produced by scan program (DLZURGSO) 
Set to 1 if logical parent concatenated key is prsent 
Sequence field is unique 

Set to 1 1f root sequence field is present 

Constant present in key 

For type 40 record; pointer is symbolic 

Set to 1 if logical twin pointers are to be resolved by type 20 
and 30 records 

Executable length (length of field minus 1) of sequence field, 
if present, or executable length of indexed field if present. 
Executable length (length of field minus 1) of logical parent 
concatenated key, if present 

Value of LEVTTR after BYLCT 

Data base of logical parent 

Segment code of logical parent 

Logical parent’s concatenated key (Length of field in 
ALFLAG3) 

Logical parent’s old address 

Data base of logical child 

Segment code of logical child 


***FOR TYPE 00 AND 01 RECORDS*** 


Description 


Old value of logical child first or logical child last pointer 
X‘00’ or X‘01’ 

Value of logical parent’s LEVSEGOF after BYLCT 

Old value of counter field 

DCB NUMBER FOR LP 


(TYPE 01 RECORD ENDS HERE) 
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Hex 


Hex : 


Hex 


Hex 


14 


Hex 


11 
14 


5-232 


Dec 


Dec 


Dec 


12 
20 


Dec 


20 


Name 


ALPSEQA 


Name 


ALCOAD 


ALTO02 


Name 


ALFIL 
ALCSEQ 
ALCM 


ALT123 
ALCDCB 
ALCSEQA 


Name 


AILCOA 
AIDBNAM 
AIFLDVAL 
AISC 
AISEQ 
AISEGN 
AIFLDN 
AISDBN 
AISSC 
AILCNA 
AIDATA 


Name 


AISSFN 
AISSAID 
AISFLDV 
AISSEQ 


Length 
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Description 


Pointer to secondary list entry within control data set 


***FOR TYPE 02 RECORDS*** 


Length 
4 


1 


Description 


Logical child old address 


X‘02’ 


***ROR TYPE 10, 20, AND 30 RECORDS*** 


Length | 
1 


4 


1 
1 
2 


Description 


X‘FF’ 

Logical child sequence field (Length of field in ALFLAG2) 
If LC has LT pointers and a non-unique sequence field and 
is being reloaded, ALCM contains the following: 

For Type 10 - LC’s old address 

For Type 20 - LC’s old LT forward pointer 

For Type 30 - LC’s old LT backward pointer 

Otherwise, ALCM contains the value of LEVSEGOF, with 
high order bit set to one | 
X‘10’, or X‘20’, or X‘30” 

DCB number for LC 

Pointer to secondary list entry within ‘control data set’ 


***ROR TYPE 40 RECORDS*** 


Length 


4 
8 
Var 
1 


mm CO CO OO = 


4 
Var 


Description 


Logical child old address 
Index data base name 


_ Indexed field value (variable length) 


Index segment’s segment code 

Index segment’s sequence code (if second level and present) 
Index segment’s name (For level 2 index segments) 
Indexed field name (For level 1 index segments) 

Indexed segment’s data base name 

Indexed segment’s segment code 

Logical child new address 


Indexed segment data (for source fields) 


***FOR TYPE 40 RECORD USED AS SSA AND I/O AREA*** 


Length 


8 
3 
Var 
Var 
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Description 


Index segment name or field name 

SSA ID and command code 

Indexed segment’s indexed field value (variable length) 
Index segment’s sequence field value (variable length) — 
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Hex Dec 
Work File 3 
Hex Dec 
0 0 
2 2 
4 4 
5 5 


q aN 
q j 
. Uf 
laninscdet 





Name 


AXSC 
AXDDIR 
AXLCNA 
AXDATA 


Name 


CLENGTH 
CSPACE 
CTYPE 


Flag Name 
CTYPEO © 
CTYPEO1 
CTYPE1 
CTYPE2 
CTYPE3 
CTYPE4 
CFLAG1 


Flag Name 
CF1LOAD 
CFISCAN 
CFILPCK 
CFISEQA 
CF1TOF 
CF1T23 


Length 


Zrwre 


Description 


Segment code of indexed segment 
DDIR address of indexed data base 
Logical child new address 

Index source data 


This record is the output file from DLZURG1O0 and is used as the input file for 


DLZURGPO. 


Length 


Description 


Length of work file record 
Zeros 
Work file record type 


Meaning 

Type 00 record 

Type 01 record 

Type 10 record 

Type 20 record 

Type 30 record 

Type 40 record 

Origin of record 


Meaning 

Flag on-initial load; Flag off-reorganization 

Record produced by scan 

Logical parent concatenated key if present 

Set to 1 if root sequence field present 

Set to 1.if matching type 10 record found 

Set to 1 if logical twin pointer is to be resolved by type 20 
and 30 records 
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Hex Dec Name 


6 6 CLCDBNO 
E 14 CLCSEGNO 
F 15 CLPSEGNO 
10 16 CLCFRST 
14 20 CLCDLST 
18 24 CLCDCNT 
1C 28 CLPDBNO 
Hex Dec Name 
6 6 CLPDBNI1 
E 14 CLPSEGNI1 
F 15 CLCSEGNI1 
10 16 CLTFWD 
14 20 CLTBKWD 
18 24 CLPNWADI1 
1C 28 CLCDBN1 

~ Hex Dec Name 


24 36  CDCB 


25 37 | 

26 38 CLEVTTR 
2A 42 CLEVSGOF 
2C 44 CLCCNT 
30 48 CLSEO 


oh fh RR eK CO 


Length 
1. 


4 
2 


4 
Var 
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***RTELDS IN TYPE 0 RECORD*** 


Description 


Logical child data base name 
Logical child segment code 
Logical parent segment code 
Logical child first pointer 
Logical child last counter 
Logical child delta counter 
Logical parent data base name 


***FTELDS IN TYPE 1 RECORD*** 
Length 


Description 


Logical parent data base name 
Logical parent segment code 
Logical child segment code 
Logical twin forward pointer 
Logical twin backward pointer 
Logical parent new address 
Logical child data base name 


*** COMMON FIELDS FOR BOTH TYPE 0 AND TYPE 1 RECORDS*** 


Description 


DCB number 


Contents of LEVTTR after BYLCT 

Contents of LEVSEGOF after BYLCT (high order bit of 
CLEVSGOF is set to 1 if segment is not in HD) 

Old value of counter field 

Root sequence field 








; 
1 \ 
\ 


WY 
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Section 6. Diagnostic Aids 


This section contains two tables that cross-reference DL/I messages and DL/I 


status codes with the module(s) that originate them. 


Additional diagnostic information can be found in the DL/I DOS/VS Diagnostic 


Guide, SH24-5002. 
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DL/I Message Cross Reference 





This table cross-references message numbers (in numeric order) with the module(s) | 
or phase(s) that can cause that message to be issued. In addition, if the message is 
described in the HIPO diagram in Section 2, the HIPO figure number is also. 

shown. The modules and phases are described in Section 3 of this publication. 

The messages are described in Chapter 1 of DL/I DOS/VS Messages and Codes. 


| Note: DLZO0O0OI is issued when a module requests a message that does not exist. 











Message Module/ Figure 
Number Phase Number 
DLZO0OI DLZMMSGT 
(see note 
above) 
DLZOO1I DLZBNUCO | 2-4.2 
DLZ002I BLZBNUCO 2-4.2 a 
DLZDXMTO -_ 
DLZ0031 DLZDDLEO 
DLZ004I DLZDBH02 
DLZRDBLO 2-16.7 
DLZO0SI DLZDBHO02 
DLZO006I DLZOLIO0 2-5.4 
| DLZ007I DLZDSEHO 2-39 
-DLZDXMTO _— 
DLZO009I DLZRRCO00 2-3.8 
| DLZPRSTC 
DLZ010A DLZRRCOO 
| DLZLOGPO 
| DLZMPI00 2-21.1 
DLZO111 DLZRRCO00 2-3.2 
| DLZEIPBO 2-45.6 
' DLZO121 DLZMPI00 2-21.1 
DLZRRCOO 2-3.4, 2-3.7, 2-3.9 
DLZ0131 DLZOLIO0 2-5.3 
DLZ014A DLZRRCO0O ee 
: DLZMPI100 2-21.1 -_ 
| DLZO0151 DLZRRCO0O 2-3.3, 2-3.9 ~ 
DLZOLIO0 2-5.3 
DLZ016I DLZDLOCO 
DLZ0171 DLZRRCO0O 2-3.7 
DLZO0181 DLZRRCOO 2-3.7 
| DLZ0191 DLZRRCO00 2-3.3, 2-3.9 
DLZ0201 DLZDLOCO 2-14.1 
DLZRDBLO 2-16.1 
DLZ0211 DLZDLOCO 
DLZRDBLO 2-16.6 
DLZ0221 DLZDLOCO 
DLZ0231 DLZDLOCO 2-14.1 
DLZ024I DLZDLOCO 
DLZDXMTO 
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Message 
Number 


DLZ025I 
DLZ026I 
DLZ027I1 
DLZ028I1 


, DLZO30I 


DLZ03 11 
DLZ032A 


| DLZ0331 
| DLZ037I 


DLZO038I 


DLZO039I 
DLZ040A 
DLZ041I 
DLZ042I 
DLZ043I 
DLZ044I 
DLZ045I 
DLZ046I 
DLZ047I1 
DLZ048I 
DLZ0491 
DLZ052I 
DLZ053I 
DLZO054I 


DLZO55I__ 


DLZOS56I 
DLZ057I 
DLZOS58I 


| DLZO59A 


DLZ0601 


DLZO61A 


DLZ0621 
DLZ0631 
DLZ0641 
DLZ0651 
DLZO0661 
DLZ0671 
DLZ0681 
DLZ0691 
DLZO701 
DLZO711 
DLZ0721 


Module/ 
Phase 


DLZDLOCO 
DLZRRCO0O0 
DLZDLOCO 
DLZDLOCO 
DLZOLIO00 
DLZLOGPO 
DLZOLIO0 
DLZOLIO00 
DLZRDBL1 
DLZISCO00 
DLZEIPBO 
DLZEIPOO 
DLZEIPBO 
DLZEIPB1 
DLZMPIO0 
DLZODP 
DLZRRCOO 
DLZSTRBO 
DLZOLIO0 
DLZOLIO0 
DLZOLIO0 
DLZOLIO0 
DLZOLIO00 
DLZOLIOO 
DLZOLIO0 
DLZOLIO00 
DLZOLIO0 
DLZOLIO0 
DLZOLIO00 
DLZOLIO0 
DLZOLIO0 
DLZOLIO0 
DLZOLI00 
DLZOLIO00 
DLZOLI00 
DLZOLIO0 
DLZRRCOO 
DLZMPI00 
DLZOLI00 
DLZOLIO0 
DLZODP 
DLZODP 
DLZOLI00 
DLZODP 
DLZODP 
DLZODP 
DLZODP 
DLZODP 
DLZODP 
DLZOLI00 
DLZOLI00 


Figure 


Number 


2-14.1 
2-3.8 
2-14.1 
2-14.1 
2-5.8 


2-5.1 
2-5.4 


2-6.18, 2-6.19 
2-46.4, 2-47.21 
2-48.25, 2-48.29 
2-46.5, 2-46.6 


2-47.22 


2-6.12, 2-6.13 


2-3.4 
2-51.2 


2-5.2 
2-5.2 
2-5.2 
2-5.3 
2-5.3 
2-5.3 
2-5.3 
2-5.3 
2-5.5 
2-5.5 
2-5.5 
2-5.4 
2-5.4 
2-5.5 
2-5.6, 2-5.7 


2-5.9 
2-5.9 


2-6.2 


—2-6.2 


2-5.2 
2-5.3 
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Message Module/ Figure 
Number Phase Number c 
(4 \ 
DLZ0731 DLZOLI00 2-5.3 ay 
DLZO0741 DLZOLI00 2-5.3 
DLZ075I DLZRRCOO 2-3.9 
DLZ076A DLZRDBLO 2-16.7 
DLZ077I DLZRDBLO 2-16.1, 2-16.7 
DLZO078I DLZRRCOO 2-3.9 
DLZ0791 DLZRDBLO 2-16.7 
DLZO801. DLZMSTPO 2-22.1 
DLZO81I DLZMPIO0 2-21.1 
DLZ082I DLZBPCO0O 2-20.1, 2-20.5 
DLZMPCO00 2-19.2, 2-19.4 through 2-19.8 
DLZMPIOO ——-Q-21.1, 2-21.3 | 
DLZ0831 DLZMSTRO 2-18 
DLZ084I DLZBPCO00 2-20.2, 2-20.4 
| DLZMPC00 2-19.4,2-19.10 | ran 
DLZMPIO00 | 2-21.1, 2-21.3 | cE 
DLZO085I DLZMPIOO 2-21.1 ad 
DLZO086I DLZMPCO00 2-19.7 
DLZ087A DLZMPIO0 2-11 
DLZO88I | DLZMPIOO » 2-21.1 
DLZ089I DLZMPIO0 2-21.1 
DLZ090I DLZMPIO0 —-2-21.2 
DLZ091I DLZMPI00 2-21.3 
DLZ092I DLZMPIOO0 2-21.3 
DLZ0931 DLZMPCO00 2-19.2 Pat 
DLZ094I DLZMPCO00 2-19.8 i : 
DLZ095I DLZMPIOO | 2-21.1 7 
DLZ096I DLZMPIO0 2-21.5 
DLZ097I DLZMSTRO _ 2-18 
DLZ098I DLZMPIO0 | 2-21.3 
DLZ0991 DLZMPI00 2-21.1 
DLZ100I DLZMPIO0 2-21.3 
DLZ101I DLZMSTRO 2-18 
DLZ102I DLZMPI00 2-21.3 
DLZ1031 DLZBPCO00 2-20.5. om 
DLZ104I DLZMPCO00 2-19.9 " y 
DLZBPCO0O 2-20.6 7 
DLZ105I DLZRRCOO 
DLZBNUCO 2-4.1 
DLZMPIO0 
_ DLZISCOO 2-6.21 
DLZ106I DLZQUEFO 
DLZ108I DLZQUEFO 
DLZ1121 DLZRRCOO 2-3.3 
DLZ1131 DLZOLIO0 2-5.5 
DLZ114I DLZOLIO0 
DLZRRCOO 2-3.3 
DLZ115I DLZOLI00 2-5.9 | 
DLZRRCOO 2-3.9, 2-3.3 
DLZ116I DLZRRCOO 2-3.3 
DLZ117I DLZRRCOO 2-3.9, 2-3.3 
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Message 
Number 


DLZ118I 
DLZ119I] 
DLZ120I 
DLZ1211 
DLZ1221] 


DLZ1231 


DLZ124I 
DLZ125I 
DLZ126I 
DLZ127I 
DLZ128I 


DLZ129] 
DLZ130I 


DLZ131I 
DLZ132I 


1 DLZ133I1 


DLZ260I 
DLZ261I 
DLZ262I1 
DLZ263I 
DLZ264I 
DLZ265I 
DLZ266I 


DLZ2671 
DLZ268I 


DLZ280I1 


DLZ28 11 
DLZ2821 
DLZ3011 


DLZ302I 


DLZ3031 


 DLZ3041 


Module/ 
Phase 


DLZOLIO00 
DLZOLIO00 
DLZTRACE 
DLZMPC00 
DLZMPC0O0 
DLZBPCO0O 
DLZMPC00 
DLZMPURO 
DLZMPIO0O 
DLZMPIO0 
DLZMPIO0 
DLZMPC00 
DLZMPC0O 
DLZMPURO 
DLZMPIOO 
DLZMPCO0O 
DLZMPURO 
DLZMPIO00 
DLZMPIO00 
DLZMPI00 
DLZBNUCO 
DLZODP 
DLZBNUCO 
DLZODP 
DLZRRCO0O 
DLZOLIO0O 
DLZRRCO00 
DLZRDBLI1 
DLZRDBLI 
DLZRRCO00 
DLZOLIOO 
DLZQUEFO 
DLZDDLEO 
DLZSTTL 
DLZSTTL 
DLZSTTL 
DLZUDMPO 
DLZURDBO 
DLZURGLO 
DLZURGUO 
DLZURRLO 
DLZUC350 
DLZURULO 
DLZUDMPO 


DLZURULO 


DLZURRLO 
DLZURCCO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 


DLZURULO 


Figure 
Number 


2-5.1 
2-5.5 


2-19.1 


2-19.11 


22232 


2-22.2 


2-4.1 
2-6:6 
2-4.1 
2-6.6 
2-3.8 
2-5.9 
2-3.7 


2-3.7 
2-5.3 
2-23 


2-43 


2-32 
2-31 


2-25 
2-29 
2-30 
2-27.1 
2-25 
2-29 
2-25 
2-29 
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Message 
Number 


DLZ305I 


DLZ306I 


DLZ3071 


DLZ3081 


DLZ309I1 


DLZ3101 


DLZ311I1 


DLZ312I 
DLZ3 131 
DLZ314I 
DLZ315I 
DLZ316I 


DLZ3171 
DLZ318A 


DLZ3191 


DLZ3201 


DLZ321I1 
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Module/ | 
Phase 


DLZURCCO 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURULO 
DLZURDBO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURRLO 
DLZURCCO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZRDBLO 

DLZUDMPO 
DLZURULO 
DLZURRLO 

DLZRDBLO 

DLZURCCO 
DLZBACKO 
DLZLPCCO 

DLZUCCTO 
DLZURRLO 


DLZURGUO 


DLZURGLO 
DLZLOGPO 
DLZTPRTO 

DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURDBO 
DLZUDMPO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURULO 
DLZURGUO 
DLZUDMPO 
DLZURGLO 
DLZURDBO 
DLZURRLO 
DLZLOGPO 
DLZURULO 


DLZURGUO 
DLZUDMPO 


DLZURULO 


Licensed Material—Property of IBM 


Figure 
Number 


2-27.1 


2-29 
2-25 
2-30 
2-27.1 
2-25 
2-29 
2-25 
2-29 
2-30 


2-25 
2-29 
2-30 


2-27.1 


2-31 
2-32 


(2-31 


2-32 


2-31 
2-32 


2-32 











A 


( | 
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Message 
Number 


DLZ322I 


DLZ3231 | 


DLZ3241 
DLZ3251 
DLZ3261 
DLZ3271 
DLZ3281 
DLZ3291 
DLZ3301 
DLZ3311 
DLZ332I 
DLZ3331 
DLZ3341 


-DLZ335I 


DLZ336I 
DLZ3371 
DLZ338I 
DLZ3391 


 DLZ3401 


- DLZ3411_- 


DLZ342I 


DLZ343] 
DLZ344] 


DLZ3451 
DLZ3461 
DLZ3481 


DLZ349I 


DLZ3501 


DLZ3511] 
DLZ353] 
DLZ356I 
DLZ3571 





Module/ 
Phase 


DLZUDMPO 
DLZURRLO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURGUO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURULO 
DLZURDBO 
DLZURDBO 
DLZURDBO 


~ DLZURDBO 


DLZURDBO 
DLZTPRTO 
DLZURGLO 
DLZURGUO 
DLZBACKO 
DLZLOGPO 
DLZUCUMO 
DLZUDMPO 
DLZURDBO 
DLZUDMPO 
DLZURDBO 
DLZBACKO 
DLZLPCCO 
DLZURCCO 
DLZUCCTO 
DLZURDBO 
DLZURRLO 
DLZURULO 
DLZURGU) 
DLZUDMPO 
DLZURULO 
DLZURGUO 
DLZURGUO 
DLZURGLO 
DLZURGUO 


DLZUDMPO 


DLZURGLO 
DLZURRLO 
DLZURRLO 
DLZURULO 


~ DLZUDMPO 


Figure 
Number 


2-29 


2-32 
2-31 


2-31 
2-32 
2-31 


2-32 
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Message 
Number 


DLZ358I1 
DLZ359I 
~DLZ360I1 
DLZ3611 
DLZ363] 
DLZ364I 
DLZ3651 
DLZ3661 


~ DLZ3671 
DLZ368I1 


DLZ369I 


DLZ370I 
DLZ3711 
DLZ372I 


DLZ3731 
DLZ374I 


DLZ375I1 
DLZ3761 
DLZ3771 
DLZ380I 


DLZ3811 
DLZ382I 


DLZ383I 
DLZ384I 


DLZ385I 


DLZ3861 


DLZ387I1 
DLZ388I 
DLZ389I 
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Module / 
Phase 


DLZURULO 
DLZURGUO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZURDBO 
DLZUCCTO 
DLZURGLO 


DLZURGUO 


DLZUCCTO 
DLZUC150 
DLZURGLO 
DLZUC150 
DLZURCCO 
DLZLPCCO 
DLZBACKO 
DLZUCCTO 
DLZUC350 
DLZUC150 
DLZUC350 
DLZUC350 
DLZURGLO 
DLZURGUO 
DLZURGUO 
DLZURGLO 
DLZURGUO 
DLZURGLO 
DLZURULO 
DLZURULO 


-DLZUCUMO 


DLZURDBO 
DLZUDMPO 
DLZLOGPO 
DLZBACKO 
DLZURGLO 
DLZURGUO 
DLZUCUMO 
DLZURGLO 
DLZURGUO 
DLZBACKO 
DLZLOGPO 
DLZUDMPO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURGLO 


DLZURGLO | 


DLZURGLO 





Figure 


Number 


2-32 


2-31 
2-32 
2-31 
2-32 


2-32 
2-31 


2-32 
2-31 


2-31 
2-32 


2-32 
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Message 
Number 
DLZ390I 


DLZ391I 


DLZ392I 
DLZ3931 
DLZ394I 


DLZ395I 
DLZ396I 


- DLZ3971 


DLZ398I 


DLZ3991 


~ DLZ4001 


DLZ401I 


DLZ402I 


DLZ404I 


DLZ405I 


DLZ406I 


Module/ 
Phase 


DLZURRLO 
DLZUC150 

DLZLOGPO 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURRLO 
DLZBACKO 
DLZLOGPO 
DLZUC150 

DLZUC350 

DLZURPRO 

DLZURGSO 

DLZURGUO 
DLZURG10 
DLZURGPO 
DLZUCCTO 
DLZTPRTO 

DLZURULO 
DLZURGUO 
DLZURRLO 

DLZURRLO 
DLZURRLO 
DLZURDBO 
DLZBACKO 
DLZRDBCO 
DLZBACKO 


DLZRDBCO 


DLZBACKO 
DLZRDBCO 
DLZBACKO 
DLZRDBCO 
DLZBACKO 
DLZURGUO 
DLZBACKO 
DLZLPCCO 

DLZUCCTO 
DLZURCCO 
DLZBACKO 
DLZURDBO 
DLZUC150 

DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 

DLZUDMPO 


~DLZBACKO 


DLZLOGPO 
DLZURDBO 
DLZUC150 

DLZBACKO 


| Figure 
Number 


2-35 
2-36 


2-31 


ne a ea nae ee eee 
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Message 
Number 


DLZ4071 


| DLZ4081 


DLZ4091 
DLZ410I 
DLZ4111 
DLZ412I 
DLZ4131 
DLZ414I 


DLZ415I 


DLZ416I 


~ DLZ4171 


DLZ418I 
DLZ419I 


~ -DLZ4201 


DLZ4211 
DLZ422I1 


DLZ4231 


DLZ424I 
DLZ425I 
DLZ426I 
DLZ427I1 
DLZ428I 
DLZ429I 
DLZ430I 
DLZ432I 
DLZ433I 


DLZ4341 


DLZ435I 


DLZ436I 
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Module/ 
Phase 


DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZLPCCO 
DLZTPRTO 
DLZURCCO 
DLZBACKO 
DLZBACKO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 


~ DLZURCCO 


DLZTPRTO 
DLZLPCCO 
DLZURCCO 
DLZLOGPO 
DLZLPCCO 
DLZLOGPO 


~DLZLOGPO 


DLZLOGPO 


DLZUDMP0O 


DLZURRLO 
DLZURULO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZUDMPO 
DLZURRLO 
DLZURULO 
DLZLOGPO 


DLZLOGPO | 


DLZLOGPO 
DLZLPCCO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZBACKO 
DLZLPCCO 
DLZUCCTO 
DLZUDMPO0O 
DLZURCCO 
DLZBACKO 
DLZLPCCO 
DLZUCCTO 


Figure 


Number 


2-40.1 
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Message 
Number 


DLZ4371 


 DLZ4401 


DLZ442I 
DLZ443I 
DLZ445I 


 DLZ446I 


DLZ447I 
DLZ448I 
DLZ449I 
DLZ450I 
DLZ451I 
DLZ452I 
DLZ453I 
DLZ454I 
DLZ476lI 
DLZS500I 
DLZ501I 
DLZ502I 
DLZ5031 
DLZ504I 
DLZ505] 
DLZS06I 


DLZ507I1 


~ DLZ5701 


DLZ5711 
DLZ572I 


DLZ5731 


DLZ574I 
DLZ5751 


DLZ576I 


Module/ 
Phase 


DLZURCCO 
DLZLPCCO 
DLZUCCTO 
DLZURCCO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 


~ DLZTPRTO 


DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZDLAOO 
DLZISCOO 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZEXDF 
DLZEXDFP 
DLZDLBL3 
DLZUACBO 
DLZUACBO 
DLZDLBLO 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZUACBO 
DLZDLBD 
DLZDLBP 
DLZDLBPP 
DLZDLBDP 
DLZEXDF 
DLZEXDFP 
DLZDLBDP 
DLZDLBPP 


Figure 
Number 


2-6.19 
2-34.1 
2-34.2 
2-34.1 
2-34.2 
2-34.12 
2-34.1 
2-34.12 
2-34.3 


2-33.18 
2-33 


2-33 

2-33.4, 2-33.8 
2-33.28, 2-33.21 
2-34.7 


2-33.21, 2-33.28 
2-33.4, 2-33.8 
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Message 
Number 


DLZ5771 


DLZS78I 


DLZ5831 
DLZ584I 
DLZ5851 
DLZ5871 
DLZ5881 
DLZ5891 
DLZ6001 
DLZ602I 

DLZ6031 
DLZ6041 


DLZ605!I 
DLZ606I 
DLZ6081 
DLZ6091 
DLZ610I 
DLZ611I 
DLZ612I 


DLZ613I1 
DLZ614I 


DLZ615I 


DLZ616I 
DLZ6171 
DLZ618I 
DLZ6231 
DLZ626!I 
DLZ6271 
DLZ633I 
DLZ634I 
DLZ635I 


DLZ636I 
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Module/ 
Phase 


DLZEXDFP 
DLZDLBPP 
DLZEXDFP 
DLZDLBD 
DLZDLBP 
DLZDLBDP 
DLZDLBL3 
DLZDLPP 
DLZEXDF 
DLZEXDFP 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZPRCT2 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRDBD 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRDBD 
DLZPRDBD 
DLZPRPAR 
DLZPRDBD 
DLZPRPAR 
DLZPRDBD 
DLZPRABC 
DLZPRDLI 
DLZPRWFM 


~ DLZPRDBD 


DLZPRDBD 
DLZPRDBD 
DLZPRABC 
DLZPRCT2 
DLZPRPSB 
DLZPRPAR | 
DLZPRCT2 
DLZPRCT1 
DLZPRERR 
DLZPRCT2 
DLZPRDLI 
DLZPRERR 


Figure 


Number 


2-34.1, 2-34.7 


2-33.4 
2-34.1 


2-33.21, 2-33.29 
2-33.14 


2-34, 2-34.6, 2-34.8 


2-33 


2-33 
2-33 


— 2-33 


2-44.8 
2-44.8 
2-44.8 
2-44.4 
2-44.8 
2-44.8 
2-44.8 


2-44.8 


2-44.8 
2-44.8 
2-44.8 
2-44.4 
2-44.4 
2-44.8 
2-44.4 
2-44.8 
2-44.4 
2-44.2 


2-44.14 
2-44.13 


2-44.4 
2-44.4 
2-44.4 
2-44-2 


2-44.5 


2-44-7 
2-44.1 


2-44.7 


2-44.14 
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Message 
Number 


DLZ6391 
DLZ641I 


DLZ642I1 
DLZ6431 
DLZ644I 
DLZ645I 


DLZ6461 
DLZ6471 
DLZ648I 
DLZ6491 
| DLZ6501 
DLZ6511 
DLZ6521 
DLZ6531 


DLZ655I 
| DLZ6591 
DLZ772I 
DLZ796I 
DLZ7971 
DLZ7981I 


| 


DLZ799I 


DLZ800I 


DLZ801T. 


DLZ802I 


DLZ803I 
DLZ804I 
DLZ805I 
DLZ806I 


DLZ8071 
DLZ8081 
DLZ809I 
DLZ830I 
DLZ8311 
DLZ832I1 
DLZ841I 
DLZ8 441 


Module/ 
Phase 


DLZPRCT2 
DLZPRCT1 
DLZPRUPD 
DLZPRURC 
DLZPRDBD 
DLZPRERR 
DLZPRSTW 
DLZPRURC 
DLZPRURC 
DLZPRDBD 
DLZPRURC 
DLZPRURC 
DLZPRSTC 
DLZPRSTC 
DLZPRSTC 
DLZPRUPD 
DLZPRDLI 
DLZPRDLI 
DLZPRURC 
DLZPRSCC 
DLZPRUPD 
DLZPRDLI 
DLZPRDLI 
DLZPRUPD 
DLZDXMTO0O 
DLZDLDOO 
DLZDDLEO 
DLZDLRGO 
DLZDLRDO 
DLZDLRCO 
DLZDLDOO 
DLZCPY10 
DLZDLRFO 
DLZDLRBO 
DLZDLRFO 
DLZDLDOO 
DLZDHDSO 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZCPY10 
DLZDHDSO 
DLZDLDOO0 
DLZDLDOO 
DLZDLDOO 
DLZDHDSO 
DLZDHDSO 
DLZDHDSO 
DLZDBH00 
DLZDBH02 


Figure 
Number 


2-44.7 


2-44.15 
2-44.12 
2-44.12 
2-44.4 


2-44.12 
2-44-11 
2-44.11 
2-44.11 
2-44.10 
2-44.14 


2-44.12 
2-44.9 
2-44.10 


2-44.14 
2-44.10 


2-13.5 
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Message — 


Number 


DLZ845I 
DLZ847I1 
DLZ848I 
DLZ8501 
DLZ8551 
DLZ860I 


DLZ8611 
DLZ8621 
DLZ8631 
DLZ864I 
DLZ868I 
DLZ8691 
DLZ8701 
DLZ88sI 
| DLZ8901 
DLZ894I 


| DLZ9001 
DLZ901I 
DLZ902I 
DLZ9031 
DLZ9041 
| DLZ9051 


DLZ906I 
DLZ9071 
DLZ908I1 
DLZ909I 
DLZ910I1 


DLZ911I1 
~ DLZ9121 
DLZ9131 
DLZ914I1 
DLZ915I 
DLZ916I 
DLZ917I1 
DLZ918I 
DLZ9191 
DLZ920I 
DLZ921I1 
DLZ922I1 
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Module/ 
Phase 


DLZDBHO00 

DLZDBHO00 

DLZDBHO00 

DLZDDLEO 
DLZDDLEO0 
DLZDDLE0 
DLZDXMTO 
DLZDDLE0 
DLZDDLE0 
DLZDDLE0 
DLZDDLEO 
DLZDXMTO 
DLZDXMTO 
DLZDXMTO 
DLZBACKO 
DLZBACKO 
DLZBACKO 
DLZLOGPO 

DLZURDBO 
DLZUC150 

DLZDLBL1 


DLZDLBL2 


DLZDLBL2 


~DLZDLBL2 


DLZDLBLO 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL3 
DLZDLBLC 
DLZUACBO 
DLZUAMBO 
DLZDPSBO 


DLZDLBLO — 
DLZDLBL3 


DLZDLBL3 
DLZDLBL2 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 


-_ DLZDLBLO 


DLZDLBL1 


Figure 
Number 


2-33.15 


2-33 
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2-33.18, 2-33.19 


2-33.20 


2-33.13 


2-33.11 
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Message 
Number 


DLZ9231 
DLZ924I 
DLZ925I 
DLZ926I 


DLZ9271 
DLZ928I 
DLZ929I 


DLZ9301 
DLZ9311 
DLZ9321 
DLZ9331 
DLZ934I 
DLZ935I 
DLZ936I 
DLZ9371 
DLZ938I 
DLZ9391 
DLZ9401 
DLZ9411 
DLZ9421 
DLZ9431 
DLZ944I 
DLZ9451 
DLZ946I 
DLZ947I 
DLZ948I 
DLZ9491 
DLZ952I 


DLZ953I 
DLZ954I 


DLZ955I 


DLZ956I 


DLZ9571 


DLZ958I 


Module/ 
Phase 


DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBD 
DLZDLBDP 
DLZDLBP 
DLZDLBPP 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL3 
DLZUAMBO 
DLZDLBL1 
DLZDLBL1 
DLZDLBLO 
DLZDLBLI1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL3 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2_ 
DLZDLBLO 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 


DLZDLBL2 — 


DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZURG10 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURGSO 
DLZURG10 
DLZURGSO 


Figure 
Number 


2-33.22, 2-33.23, 2-33.25, 2-33.30 


2-33.9 


2-33.18, 2-33.19 


2-36 


2-35 
2-36 
2-37 


2-37.2, 2-37.4 


2-35 
2-36 


2-36 
2-37 
2-36 
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Message 
Number 


DLZ959I 


DLZ960I 
DLZ961I 


DLZ962I1 
DLZ9631 
DLZ964I 
DLZ965I 
DLZ966I 


| DLZ967I 
DLZ968I 


DLZ9691 
DLZ970I 
DLZ9711 
DLZ972I 
DLZ9731 
_ DLZ9741 
DLZ9751 
| DLZ976I 
DLZ9771 
DLZ978I 
DLZ9791 
DLZ980I 
DLZ981I 
DLZ982I 


DLZ9831 
DLZ984I 


DLZ985I 
| DLZ989I 
DLZ990I1 


DLZ991T 
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Module/ 
Phase 


DLZURGPO 
DLZURGSO 
DLZURGPO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 


DLZURPRO 


DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZURGSO 


- DLZURGSO 


DLZURPRO 


DLZURG10 — 


DLZURGPO 


DLZURGSO 


DLZURGSO 


DLZURGSO | 


DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURPRO 


DLZURG10 - 


DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURGPO 
DLZURGPO 
DLZURPRO 


DLZURGPO 
~DLZURGSO 


DLZURG10 
DLZURPRO 
DLZURG10 


- DLZURGSO 


DLZURGPO 
DLZURG10 
DLZURPRO 


~ DLZURPRO 
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Figure 


Number 


2-35 
2-35 
2-35 
2-35 
2-35 
2-36. 
2-37 


2-36 © 


2-37 


2-36 
2-36 
2-36 


2-36 


2-35 

2-37.2 

2-37.2 

2-37.2 

2-37.2, 2-37.4 
2-37.4 

2-37 


2-35 


2-36 
2-37 
2-35 
2-37.2 








se 
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DL/I Status Codes Cross Reference 


( This table cross-references DL/I status codes (in alphabetic order) with the 
ee module(s) or phase(s) that can cause that status code to be set. The modules and 
phases are described in Section 3 of this publication. The status codes are 
described in DL/I DOS/VS Messages and Codes. 


Status Code Module 
AB DLZDLAOO 
AC DLZDLAOO 
AD DLZDLAOO0, DLZISCOO 
AH DLZDLAOO 
AI DLZDLAO00, DLZDLDOO 
AJ DLZDLAOO 
AK DLZDLA00, DLZDLRDO, DLZDLREO 
AM DLZDLAO00, DLZDLDOO 
oan AO | DLZDLD00, DLZDLRO00, DLZDDLE0, DLZCPY10 
( } DA DLZDLDO0O 
‘i DJ DLZDLAOO 
DX DLZDLD0O 
GA DLZDLRCO 
GB DLZDLRAO, DLZDLRFO 
GE DLZDLRAO, DLZDLRCO, DLZDLRDO, DLZDLREO 
GK DLZDLRCO 
GP DLZDLRAO | 
ll DLZDLRDO, DLZDLRFO, DLZDDLEO 
— Ix DLZDDLEO 
( KA DLZCPY10 
KB DLZCPY10 
KC DLZCPY10 
KD DLZCPY10 
KE DLZCPY10 
LB | DLZDLA00, DLZDDLEO 
LC DLZDLAO0O 
LD DLZDLAOO 
LE DLZDLAO0O 
aa NA DLZDXMTO 
( ; NE DLZDXMTO 
: NI DLZDXMTO | 
NO DLZDXMTO 
RX DLZDLDO0O 
TA DLZEIPOO 
TB DLZEIPOO 
TC | DLZEIPOO 
TE DLZEIPOO 
TF DLZEIPOO 
TG DLZEIPOO 
TH DLZEIPOO 
TI DLZEIPBO, DLZEIPOO 
TJ | DLZEIPOO 
TK » DLZEIPOO 
TL DLZEIPOO 


TN DLZEIPB1, DLZEIPOO 
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Status Code 
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Module 


DLZEIPB1, DLZEIPOO 
DLZEIPB1, DLZEIPOO 
DLZDLAOO | 
DLZEIPB1, DLZEIPOO 
DLZEIPB1, DLZEIPOO 
DLZEIPB1, DLZEIPOO 
DLZEIPB1, DLZEIPOO 
DLZEIPB1, DLZEIPOO 
DLZDLAO1 


-DLZDLAOO 


DLZMPIO00 
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Section 7. Appendixes 


C ji This section consists of the following appendixes: 
Appendix A: Low-Level Code/Continuity Checking in DL/I. 
Appendix B: DBD Generation. 
Appendix C: PSB Generation. 


Appendix D: DL/I Macros 
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Appendix A: Low-Level Code/Continuity Check in DL/I 


Flow of Control 


Low-Level Code/Continuity Check (LLC/ CC) in DL/I is used as a subroutine of 
a user-written application program that runs under DOS/VS. Control passes to 
and from the subroutine using standard calls. 


LLC/CC in DL/1 is a single control section (CSECT) which is structured into 
seven modules (see Figure 7-1 on page 7-3). The entry modules 000 for update 
and 001 for initial generation of low-level codes have multiple entry points for call 
statements issued by the user-written application program, that is, a separate entry 
point for each source language that is supported. All modules have only a single 
exit point, all lower level modules 002 through 006 are only entered at one point. 


All modules assemble and issue DL/ calls. The entry point for DL/I depends on 
the source language that is identified by the entry point into LLC/CC in DL/I. 
The language bits in the LLC/CC execution control block (LECB) identify the 
source language of the application program. If an unexpected status code of DL/I 
is reported in the appropriate PCB, the error bits in the LECB are turned on, and 
control is routed back directly to the entry modules 000 or 001. 


LLC/CC in DL/I consists of the following modules: 


e Module 000 is the entry module for maintenance of low level codes. It passes 
control to module 002 for execution. 


¢ Module 001 is the entry module for initial generation of low level codes. It | 
passes control to module 002 for execution. 


¢ Module 002 is the common mainline control module. It follows down a 
hierarchical path of a product structure. For actual explosion, control is passed 
to module 003. If a particular hierarchical path is exhausted, module 004 is 
executed to process a parallel path on the same hierarchical level. If all parts 
on the same level are processed, module 005 steps up one level to identify a 
parallel path on the higher level. If the original starting level is reached, the 
complete structure is processed, and control is returned to module 000 or 001. 
Module 002 also detects loops and executes continuity check recovery in 
module 006. 


e Module 003 explodes a particular part into all its components. Control is 
passed from and to module 002. 


¢ Module 004 removes the part which has previously been processed from the 
hierarchical path thus opening a new hierarchical path via the next parent part 
on the same level. Control is passed from and to module 002. 


e Module 005 steps up one level and removes the higher level part from the 
hierarchical path to open another path. Control is passed from and to module 
002. If module 002 is not able to follow a new path on this level, module 005 
may be executed repetitively. 


» Module 006 handles restoring of old low-level codes if a continuity check is 
detected. Control is passed to and from module 002. 
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For a more detailed description, see the relevent HIPO charts at the end of 
Appendix A. 





Entry points Entry points 

DLZNNCA 000 DLZNNGA 001 

DLZNNCC Maintenance of DLZNNGC Initial Generation of 

DLZNNCP Low Level Codes DLZNNGP Low Level Codes 
002 
Vertical Explosion 
Control 

( | 003 004 005 006 
eat” Explosion of a Part Next parent on Next parent on Continuity Error 


same level Handler 


higher level 





Figure 7-1. Structure of LLC/CC in DL/I 
Modification Aids 


( ; External Names 


LLC/CC in DL/I uses external names in the directories and libraries of DOS/VS. 
The following table presents a list of all external names which are used. The user 
should obtain a DSERV listing to avoid duplicate names. 















Directory ates | 


DLZNN* 


te TEN RO TTT ROR TERN SREP IRF TE 7 be ar aa sale : ——r 


Type of program 












DLZNNCA* 
DLZNNCC* | 
DLZNNCP* 
DLZNNEC* 
DLZNNGA* 
DLZNNGC* 
DLZNNGP* 


Execution program 













Initialization DLZNNICT DLZNNICT DLZNNICT 
program for the 


control data base 


* May be modified by the user during customization. 
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LLC/CC Execution Control Block (LECB) 


The LECB of LLC/CC in DL/1 is the focal point for all information related to 
actual operation of the execution program. It consists of 16 bytes which are 
subdivided into 4 fullwords. An entry point DLZNNEC is provided so that an 
application program may access the contents of the LECB. 


The LECB contains the following information: 


1. Identification portion (fullword 0): . 
Bytes 0 through 3: C‘LECB’=X*D3C5C3C2’ 
This identifier facilitates location of the LECB in a main storage dump. 


2. Execution control portion (fullword 1): 
Byte 4: 


e Bits 0 through 3: Run type bits 


- Bit O and bit 1: Reserved 
Bit 2: 1 if IG run | 
Bit 3: 1 if Urun 


e Bits 4 through 7: Not used 
Byte 5: 
e Bits 0 through 3: Language bits 


Bit 0: Reserved 

Bit 1: 1 if Assembler 
Bit 2: 1 if COBOL 
Bit 3: 1 if PL/I 


¢ Bits 4 through 7: Not used 
Byte 6: Status byte 
e Bits 0 through 3: Completion bits (mutually exclusive) 


Bit 0: 1. if not completed, abnormal condition encountered 

Bit 1: 1 if component requires no change (U run only) 

Bit 2: 1 if part is already processed (IG run only) 

Bit 3: 1 if part has no components (IG run only, and only if bit 2 is off) 


Besides its function as an indicator, bit3 also serves to transfer 
information whether a particular part in an explosion sequence has 
component parts. Bit 3 is turned off in module 002 before entering 
module 003. If no component parts are found during the execution of 
module 003, the bit is turned on. Upon return to module 002, the bit is 
tested to decide whether module 004 must be called. 


¢ Bits 4 through 7: Error bits, extending completion bit 0. A single error bit 


does not reflect a particular error condition, therefore, the hexadecimal 
representation of the total bit pattern in the status byte has to be analyzed. 
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Language Considerations 


X‘80’ Parent part not found 

X‘81’ Component part not found (U run only) 

X‘84’ Continuity check for parent part 

X‘85’ Continuity check for any component part 

X‘87’ Input parameter in error 

X‘88’ Unexpected DL/I status code for parts data base 
X‘8A’ Unexpected DL/I status code for control data base 
X‘8C’ Both error conditions X‘84’ and X‘88’ 

X‘8D’ Both error conditions X‘85’ and X‘88’ 

X‘8E’ Both error conditions X‘84’ and X‘8A’ 

X‘8F’ Both error conditions X‘85’ and X‘8A’ 


Byte 7: Not used 
3. Parameter list portion (fullword 2): 


Bytes 8 through 11: Address constant pointing to the parameter list which has 
been previously submitted to DL/I by LLC/CC in DL/I. Contents is defined 
hexadecimal zeros prior to the first run through LLC/CC in DL/I. The 
address constant is not affected by insertion of locators if the application 
program is written in PL/I. 


4. PCB save area portion (fullword 3): 


- Bytes 12 through 15: Address constant pointing to a 64-byte save area for a 
PCB. This save area is initialized to blanks (X‘40’), however, in case of an 
unexpected DL/I status code, the related PCB is saved into this save area. 

The PCB is stored left justified. If the length of the PCB exceeds 64 bytes, the 
exceeding data is truncated. 


The contents of the status bytes is externally represented by the return codes of 
LLC/CC in DL/I. 


IG stands for “‘initial generation of low level codes’’, U stands for ‘‘update of low 
level codes’’. | 


The LECB is located at-the very end of the code of LLC/CC in DL/I. Therefore, 
the last byte of LLC/CC in DL/I may be addressed DLZNNEC +15. 


During PSB generation, the source language of application programs using DL/I 
facilities is defined in the PSBGEN statements. While COBOL is handled like 
Assembler, the PCB has a different layout if PL/I is specified. Therefore, 
LLC/CC in DL/I has to use different entry points into DL/I depending on the 
source language of the invoking user-written application program. 


The entry routines of the execution program of LLC/CC in DL/ offer different 


entry points. The x identifies initial generation mode (G) or update mode (C). Six 
different entry points are available for transfer of control: 


¢ DLZNNxA and DLZNNxC are the entry points for application programs 


written in Assembler or COBOL, respectively. No special processing is 
required. 
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DLZNNx?P are the entry points for application programs written in the PL/I 
Optimizer language. Upon entry, the address constants in the parameter list 
pointing to the locators of the parameters transmitted are replaced by the 
addresses which are stored in the respective locators. 


For each source language, the appropriate language bit in the LLC/ CC execution 
control block (LECB) is set upon entry. 


When a DL/I call is issued, the language bits are tested to specify the right entry 
point in DL/I: ASMTDLI, CBLTDLI, or PLITDLI. If the source language is 
PL/I, the parameter list is encoded to transfer address constants pointing to 
locators rather than pointing directly to the parameters. 


LLC/CC in DL/I contains a set of save areas which facilitate tracing main storage 
dumps. The most important save areas are: - 


RO. 


R1 
R2 
R5 
R6 
R7 
R8 
R9 


Standard save area, addressed by register 13. Symbolic name is SAVE. 


Return addresses for subroutines, that is, contents of register 14. Symbolic 
names are CALLSV, PARMIJUSV, INSRSAVE, SETUPSV, MO002SV through 
MOO6SV. Save areas MOO2SV through MOO6SV are reset to hexadecimal 
zeros when the respective modules M002 through M006 are left again. 


Save area for the contents of register 1 when entering LLC/CC in DL/, that 
is, address of the parameter list submitted from the application program. 
Symbolic name is RISAVE. 


Save area for the leftmost 240 bytes of a PCB if an unexpected DL/I status 
code is encountered. Symbolic name is PCBSAVE. The address of PCBSAVE 
is also available in fullword 3 of the LECB. 


Work register 

Work register, address of parameter lists during parameter transfer 
Address of parameter list when preparing parameter transfer 
Work register | 

Address of PCB for parts data base 

Address of PCB for control data base 

Base register 

Second base register 


R12 Reserved 


R13 


Address of register save area 


R14 Standard return address 


R15 


HIPO Diagrams for LLC/CC 
The following HIPO diagrams describe the seven modules (000-006) of LLC. 
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Appendix B: DBD Generation 


Description of DBD Generation 


DBD generation is composed of a set of DL/I macro instructions, the execution of 
which creates the user-specified data base description (DBD) and places it in the 
DOS/VS source statement library. The following macro instructions represent 


DBD generation: 


Macro Instruction 
Name 


DBD 


DATASET 


ACCESS 


SEGM 


LCHILD 


XDFLD 


FIELD 


DBDGEN 


FINISH 


Purpose 


Allows the DL/I user to define the name of the DBD and the 
data base organization 


Allows the DL/I user to define names for data sets representing 
a data base, the device type used for storage of the data base, 
the logical record length, and the blocking factor for the 
physical records in the data sets representing the data base 


Used in conjunction with ACCESS=HD to define external 
access points, primary and secondary, to the data base. 


Allows the user to specify a DL/I segment, its parent segment, 
the segment length, the segment name, and segment prefix 
information 


Allows the user to define an index relationship or a logical 
relationship in which a segment will participate. 


Allows the user to define secondary indexing relationships. 
Allows the DL/I user to specify a data field or key field for a 
segment. The field definition includes the related segment field 
name, field start position in segment, field length, and field type. 
Causes the segments, fields, and data sets defined in the SEGM, 
FIELD, and DATASET macro instructions to be generated into 


an object module. : 


Checks whether a DBDGEN statement was present. 


The DBD generation macros utilize a universal set of globals. The COPY book for 
these globals is in the DOS/VS Source Statement Library and is named 


DLZDBGLB. 
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DBDGEN Macro Calling Sequence 


External 
Macro 


DBD 


DATASET 


ACCESS 


SEGM 


XDFLD 
LCHILD 


FIELD 
DBDGEN 


FINISH 


Inner 1 


DZLALPHA 
DLZALPHA 


DLZCKDDN 


DLZDEVSI 
DLZALPHA 
DLZXTDBD 
DLZALPHA 
DLZSOURS 


DLZXPARM 
DLZXTDBD 
DLZSETFL 

DLZALPHA 
DLZALPHA 
DLZXTDBD 


DLZSEGPT 
DLZLRECL 
DLZSOURS 
DLZXTDBD 
DLZCAP 
(see Note) 
DLZHIERS 


Note: Not called if device is FBA. 
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Inner 2 


DLZXPARM. 
DLZALPHA 
DLZXTDBD 


DLZSEGPT 


FIELD 


DLZSDURS 
DLZHIERS 


: 
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GLOBAL SYMBOLS 
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= algebraic C = character S = set 
B = binary R = reference U = reference/set 
| 7-2 1/5 





Figure 7-2 (Part 1 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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Figure 7-2 (Part 2 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Keference 
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A = algebraic C = character S = set 


B = binary R = reference U = reference/set 


Figure 7-2 (Part 3 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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Figure 7-2 (Part 4 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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Figure 7-2 (Part 5 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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DBDGEN Macro Descriptions 





DATASET Macro 

This is an external macro through which data set/data set group information is 

specified by the user. : 
DBD Macro 

This is an external macro through which DBD control information is specified by 

the user. | 
DBDGEN Macro 

This macro terminates the DBD specification process. If the error switch, 

DBDERR, is not set, the control block generation phase is entered to create the 

required block entries. 

ook 

DLZALPHA Macro ( 


DLZALPHA | Al 

AN : 
AN1 ,FIELD=,CHAR=,MAC=,OPER= 
ALL | 


DBD 
HEX 
BINARY 
BYTE 





This macro is used to check the syntax of macro operands. The first (positional) 
parameter identifies the valid format as follows: 


Al or omitted First character must be A-Z, @, #, or $. 


ANI | First character must be 0-9, A-Z, @, #, or §. ( J 
ALL First character must be A-Z, @, #, or $. 
Remaining characters must be A-Z, @, #, $, or 0-9. 
AN All characters must be 0-9, A-Z, @, #, or $.. 
~ HEX All characters must be 0-9, A-F. | 
BINARY All characters must be 0 or 1. 
DBD First Shatavier must be A-Z, #, or $. 


Remainder must be A-Z, #, $, or 0-9. 


BYTE - Operand must be a valid one byte self defining term. 
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DLZCAP Macro 


DLZCKDDN Macro 


The other parameters are: 


FIELD Field to be checked. 

CHAR Starting position for check if other than first position. 
MAC MNOTE prefix for error MNOTEs. __ 

OPER Name of operand being processed for MNOTEs. 






DEVICE, BLOCKSIZ 





This macro is called by DBDGEN to calculate the block capacity per track and 
cylinder provided the blocks do not have keys. These numbers are required to 
generate so me entries within the DTFSD (HSAM) and ACB-extension. The 
capacities are returned using global arithmetic variables (GBLA). Input values are: 


|| DEVICE 7 2314, 3330, 3340, 3350, 3375, FBA 


BLOCKSIZ in bytes (key length = 0) 


Output (GBLA) and MNOTE: 


CAPTRK number of blocks per track (GBLA) 

CAPCYL number of blocks per cylinder (GBLA) 

MNOTE DMAN150 if invalid device 

MNOTE Comment containing $CAPTRK and $CAPCYL if calculation 


was successful 


DLZCKDDN | FILENAME 





This macro checks the validity of filenames specified by the user and verifies that 
the specified filenames are not duplicated. 


The operand is: 


FILENAME 


is the one- to seven-character filename to be checked. 
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DLZDEVSI Macro 


DLZDEVSI 





This macro is called by the DATASET macro to set device capacity values for the | 
specified device type. The device value specified in the DEVICE operand of the 
DATASET statement is passed to this macro. 


DLZHIERS Macro 


DLZHIERS S,LV,LCP 





This macro is called twice by the DBDGEN macro. The first time is to validate SY 
segment hierarchies, field names, and locations. The second time, LV is set to 
‘GENERATP’, to generate the segment table entries for the DBD. 


The macro calls itself to process dependent segment definitions. 

The first time operands are: 

S Segment table entry number of the segment to be processed. 
LV _ Level for the segment to be processed. 


LCP If one, it indicates that the segment to be DiCeeneC is below a logical child in 
the physical hierarchy. 





The second time operands are: 
5S Segment table entry number of entry to be generated. 


LV ‘GENERATP’ 
LCP Ignored. 


DLZLRECL Macro 4 \ 


DLZLRECL 


This macro is called by DBDGEN to calculate LRECL and BLKSIZE. 
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DLZSEGPT Macro 


DLZSETFL Macro 


DLZSEGPT 


This macro is called by DBDGEN to maintain the globals DSLSL and DSSSL, 
which contain the sizes of the largest and smallest segments in a data set, 
respectively. This macro produces error messages DGEN250, 251, 252, 253, 254, 
255, 256, and 257 if the segment referenced by the operand value violates those 
rules. 


DLZSETFL RULES= 


This macro processes the POINTER or PTR operand of the SEGM macro and sets 
the globals to reflect the entered values. The globals set by this macro comprise 
bytes 0 and 1 of the 4-byte flags field of the SEGTAB entry for this segment. 


This macro is not entered if the DLZXPARM macro encountered an error while 
generating the &PLIST matrix, or if the SEGM macro detected an error in the 
POINTER or PTR parameter list. 


Messages: 


_ An error message is produced and processing is terminated if: 


e An invalid keyword is encountered in the parameter list, or 
e The RULES operand is omitted or invalid 


Flag Byte 1 is set as follows: 


Bit 1 CTR 

Bit 2 TWIN 

Bit 3 TWINBWD 
Bit 4 PARNT 

Bit 5 LTWIN 

Bit 6 LTWINBWD 
Bit 7 LPARNT 
Bit 8 NOTWIN 


If TWINBWD and/or LTWINBWD is specified, Bit 2 and/or Bit,.5 is set on, in 


addition to Bit 3 and/or Bit 6, respectively. 
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Flag Byte 2 &SRULES is set as follows: 
Bits 1&2 Indicate segment insert rule, where: 


10 Physical 
01 Virtual 
11 Logical (Default) 


Bits 3 & 4 Indicate delete rule and set same as insert. (Default value is 
LOGICAL). 


Bits 5 & 6 Indicate replace rule and set same as insert. (Default value is 
VIRTUAL). 


Bits 7 & 8 Indicate physical location of inserts for nonsequenced segments, 
where: 


10 ‘First 
01 Last (Default value) 
11 Here 


The operands are: 


RULES= 


specifies the RULES= operand as specified on the SEGM statement 


aa DLZSOURS PARM=,OPTION 





This macro is called by the SEGM macro to process the SOURCE parameter, by 
DBDGEN to validate index table entries and generate the source and index tables, 
and by DLZHIERS to generate the segment table entries for number of source 
segments and offset to first entry. 

The parameters are: 


OPTION ADD - process source operand. 
PARM = operand. 


CHECK - validate and connect index table entries. PARM ignored. 
LIST - generate SOURCE and index tables. PARM ignored. 


FIND - generate segment table entries, PARM=segment table 
number. 
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DLZXPARM Macro 


DLZXTDBD Macro 


FIELD Macro — 


PARM=,MODEL=,MSG= 





When used this macro extracts parameters from a sublist and stores them in a 
global matrix (PLIST). Null values in the parameter list are stored as null values in 
the PLIST matrix. 


The operands are: 

PARM= specifies the input parameter list values 

MODEL= identifies the model for a fully defined sublist, indicating the 
locations in the PLIST matrix for the parameters. (for example, 


MODEL=(1,2), (3,4,5)). 


MSG= identifies the parameter being processed in the first operand and the 
MNOTE prefix in the second operand. 


DLZXTDBD ~DB,CODE 





This macro builds an external data base reference table. It is called by SEGM, 
LCHILD, and DBDGEN. | | 


The operands are: 
DB specifies a data base name or segment name 
CODE specifies the value SEGM or is omitted. 


If the value SEGM is specified in the CODE operand, the segment © 
name (SN) is searched to locate the value specified in the DB 
operand; when found, the symbol EXTDBN is set to contain an 01 in 
byte 0, and bytes 1, 2, and 3 contain an offset into SEGTAB. If the 
segment is not found, an MNOTE error message is produced. 


If the CODE operand is omitted, the external data base reference 
table (DBNAMEB) is searched for the DB entry, and, if found, the 
symbol EXTDBN is set to contain the position of the found entry. If 
the DB value is not found, the value is added to the table and 
EXTDEN is set to that entry. 


This is an external macro used to define fields within a segment. 
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FINISH Macro 
| This is an external macro used to check whether a DBDGEN statement is supplied. 
LCHILD Macro | 
This is an sean macro used to define index or logical relationships for HIDAM 
and HDAM or logical relations for HD. 
SEGM Macro 
This is an external macro used to define data base segments. | 
XDFLD Macro 
This is an external macro used to define in connection with the LCHILD statement 
secondary index relationships for HIDAM and HDAM. 
ACCESS Macro | 


This is an external macro used to define external access points to the data base for 
ACCESS=HD. 


DBD —cnerauon Control Block Output - DBDGEN 


The data base description block (DBD) is the result of each data base generation. 


e Diagram of DBDGEN Control Block Output 
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General Structure: 


DIRECTORY 


PREFIX 
DMANTAB 


ACB EXTENSION (Same as DMB) 


(if HSAM or SSAM, DTFs) 


= SEGTAB 





EXTDBD 


FLDTAB 


| LCHILD : 
SORTAB 
| INDXTAB 





DACT 
(Same as DMB) 


COMPRESSION EXIT CSECTS 


(Same as DMB) 


INDEX EXIT CSECTS 
(Same as DMB) 
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Description 


Release level (X‘00’=1.0, X‘11’=1.1) 
Address of PREFIX | 
Address of SEGTAB 

Address of FLDTAB 

Address of LCHILD 

Address of EXTDBD 

Address of SORTAB 


_ Address of DMBDACS 


Address of INDXTAB 
Address of ACB extension 


Description 


DBD name 

Number of levels in data base 
Number of segments 
Organization 


Name 
PRESHIS 
PREISAM1 
PRESSAM 
PREHSAM 


~ PREHD 


PREHI 
PRENDEX 
PREIMSC 


X01’ 


X‘02? 
X‘04? 
X‘05 
X‘06’ 
X‘07? 
X‘08’ 
X‘80’ 


Meani 7 
Simple HISAM 
HISAM 

Simple HSAM 
HSAM 

HDAM 

HIDAM 

INDEX 

IMS compatibility 


Hex Dec Name Length 
0 0 AMODLEV 1 

1 1 APREFIX 3 

4 4 ASEGTAB 4 

8 8 AFLDTAB 4 

Cc 12- ALCHILD 4 

10 16 AEXTDBD 4 

14 20 ASORTAB 4 

18 24 ARMVTAB 4 

1C 28 AINDXTAB 4 

20 32 ADSGCB 4 

2. Prefix Layout 

Hex Dec Name Length 
0 0 ~ PREDBDNM 8 

8 8 PRENOLEV 2 

A 10 PRENOSEG 2 

C 12 PREACCES 1 

Hex Dec Name Length 
D 13 PRENODSG 1 

E 14 PRENODBD 2 

10 16 PRERNDM _ 8 

18 24 PRENOLCH 2 

1A 26 PREAP 2 

1C 28 DBDPFRBN 4 

20 8 32 DBDPFBYT 4 

3. DMANTAB Layout 

Hex Dec Name Length 
0 0 PREDD1 8 

8 8 PREDEV1 4 

C 12 PREID 1 
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Description 


Number of data sets 


- Number of externally referenced data bases 


Randomizing algorithm name 

Number of logical children 

Number of root anchor points 
Maximum relative block number (HD) 


- Maximum bytes in prime area (HD) 


Description 


Input or prime filename 
Device type 
Data set group ID 
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Hex Dec Name 
D 13 PRENSGA 
E 14 PREDELTA 


10 16 PRELSL 
12 18 PRESSL 
14 20 PRELKL 
16 22 PRESKL 
18 24 PRELRECL 
1A 26 PREBLKSZ 
iC 28 PREOLREC 


1E 30 PREOBLKS 


20 32 PREDD2 


4. ACB Extension 


Length 


CON NNNNNNNN 


See ““ACB Extension - ACBXT’’. 


5. SEGTAB Layout 


One of these tables exists for each segment. 


Hex Dec Name 

0 0 SEGDSNO 

1 1 SEGPHYCD 
2 2 SEGPARPC 
3 3 SEGLEVEL 
4 4 SEGNOLCH 
5 5 SEGNOFLD 
6 6 SEGLENG 

8 8 SEGFREQ 

C 12 SEGSEGNM 
1 


4 20 SEGFLG1 


Hex Dec Name 


15 21  SEGFLG2 


Length 

1 

1 

1 

1 

1 

1 . 

2 

4 

8 

1 
EQU 
X‘80’ 
X‘40” 
X‘20” 
X‘10? 
X‘08’ 
X‘04? 
X‘02? 
X‘O1’ 

Length 

1 


Description 


Number of segments in data set 

Delta scan cylinders (HD) 

Length of longest segment plus prefix 
Length of shortest segment plus prefix 
Length of longest key 

Length of shortest key 

Prime/input record length 

Prime/input block size (control interval) 
ESDS/output record length 
ESDS/output block size (control interval) 
ESDS/output filename 


Description 


Segment data set number 

Segment code 

Parent segment code 

Segment level | 

Number of logical children 

Number of fields 

Segment data length (maximum length if variable length 
segment) 

Reserved 

Segment name 


Prefix pointer flag 


Meaning 


Counter 

Physical twin forward 
Physical twin backward 
Physical parent 
Logical twin forward 
Logical twin backward 
Logical parent 
Hierarchical 


_ Description 


Segment update rules 
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EQU Meaning 
| Insert rule a oN 
X‘CO’ Logical — \ 
X‘80’ Physical 
X‘40’ Virtual 
Delete rule 
X‘30’ Logical 
X‘20’ Physical 
X‘10’ Virtual 
Replace rule 
X‘0C’ Logical | 
; X08’ _ Physical $$$ 
X‘04’ Virtual 
Physical location of inserts, when no 
key field 
X‘03’ Here (current position) 
X‘02’ First = 
X‘OL’ Last a * 
LY 
Hex Dec Name Length Description 
16 22  SEGFLG3 1 
EQU Meaning 
X‘08’ Parent has backward pointers to this 
segment | 
Hex Dec Name Length Description | 


Number of physical children pointed to directly by this segment 
Offset to first LCHILD entry 

Number of source segments 

Offset to first source segment 

Offset to first FLDTAB 

Segment prefix size | 

Minimum segment length (0 if fixed length) 

Reserved 

VL-Compression options 


17 23 SEGFLG4 
18 24 SEGLCHLD 
1C 28 DBDSSN 

1E 30 DBDSSOFF 
20 32 SEGFLDTB 
24 36 DBDSPFSZ 
26 38 SEGLENGV 
28 40 Reserved 

2C 44 SEGPACOP 





maP NN PN HYD P= 


Name EQU Meaning 
SEGCPRT X‘08’ Segment has compression 
routine 
SEGTYPVL X‘04’ Segment is variable length | 
SEGPACIT X‘01’ Initialization exit requested for 


compression routine 
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Hex Dec Name Length 
2D 45 SEGPACRT 3 

6. FLDTAB Layout 

Hex Dec Name Length 
0 0 FLDNAME 8 

8 8 FLDSTART 2 

A 10 FLDFLAG 1 

Hex Dec Name Length 
B 11 FLDLEN 1 

C 12 FLDSNAME 8 

14 20 FLDSEGTB 4 

7. EXTDBD Layout 

Hex Dec Name Length 
0 0 EXTDBNM 8 

8 8 EXTRSVD 4 

8. LCHDTAB Layout 

Hex Dec Name Length 
0 0 LCHSEGNM 8 

8 8 LCHCODE 1 


EQU 


X‘80’ 
X*40’ 
X‘20’ 
xX‘ 10’ 
X‘O1’ 
X‘02’ 
X‘03’ 
X‘04’ 


Description 


Address of compression table 


Description 


Field name 
Start position offset 


Meaning 


Last field for a SEGTAB 
Sequence field 

Multiple sequence fields 
Special FDB 
Hexadecimal field 
Packed field 

Character field 

Floating point field 


Description 


Field length 
Source field name 
Pointer to SEGTAB entry 


Description 


Externally referenced data base name 
Reserved 


Description 


Segment name 


Meaning 


LCHEDBD address is an EXTDBD 
entry 

LCHEDRD address is a SEGTAB 
entry 

Reserved 
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Hex Dec Name Length Description 
9 9 LCHEDBD 3 Offset to EXTDBD or SEGTAB entry 
C 12 LCHFLAG 1 
EQU Meaning 
X‘80’ Last entry fora 
SEGTAB 
X‘40’ Reserved 
X‘20’ INDEX entry 
X‘10’ Reserved 
X‘08’ ~~LP definition _ 
X‘04’ INDEX pointer 
X‘02’ SNGL pointer 
X‘01’ DBLE pointer 
Hex Dec Name Length Description 
D 13 LCHIBYTE 1 Reserved 
E 14 LCHPRDSG 2 Offset to paired segment 
10 16 LCHFLDNM 8 Indexed field name 
9. SORTAB Layout 
Hex Dec Name Length Description 
0 0 DBDSORNM 8 Source segment name 
8 8 DBDSSFLG 1 Source segment flag - reserved 
9 9 DBDSSDBO 3 Offset to data base entry 
10. INDXTAB 


See “Secondary List - SEC (Codes 64, 44, 40, 24, 20, 04)’’. 


11. DACT 


See “Direct Algorithm Communication Table - DACT”’. 


12. Compression Exit CSECTS 


See “Compression CSECT - CPAC”. 
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Appendix C: PSB Generation 


Description of PSB Generation 


PSB generation is composed of a set of DL/I macro instructions, the execution of 
which creates the user-specified program specification block (PSB). The following 
macro instructions represent PSB generation: 


Macro Instruction 
Name Purpose 


PCB Allows the DL/I user to define a program communication block 
(PCB), one or more of which exist within a single PSB. A PCB 
must exist for each data base with which the associated 
application program PSB intends to interact. 


The PCB macro saves the type of PCB, associated data base 
name, the intended processing options on that data base, and 
the maximum key length within the data base. One or more 
PCB macros can be used in a single PSB generation. The limit 
is 20 PCB macros per PSB generation. 


SENSEG The SENSEG macro instruction allows the DL/I user to specify 
a segment within a data base to which the application program 
associated with this PSB is sensitive. Up to 255 SENSEG 
macros may follow a PCB macro. 


PSBGEN The PSBGEN macro allows the user to specify the associated 
application program language and the name of the PSB control 
block to be generated. The PSBGEN macro is the generating 
macro for the entire PSB control block and its internal PCB 
control blocks. 


SENFLD The SENFLD macro gives the DL/I user the ability to specify 
segment sensitivity on a field level. Up to 255 fields within a 
segment, and 4095 fields within a PSB may be specified. 


~VIRFLD | The VIRFLD macro gives the DL/I user the capability of 
defining fields in the user’s view of a segment that do not exist 
in the physical view. In conjunction with the SENFLD macro, 
up to 255 fields per segment, and 4095 fields per PSB may be 


specified. 
PSBGEN Macro Calling Sequence 
External Macro Inner 1 Inner 2 
PCB : DLZCKOPT 
DLZALPHA 
SENSEG DLZCKOPT 


PSBGEN DLZPCBPD 
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Figure 7-3. PSBGEN MACRO-GLOBAL Symbol Cross Reference 
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PSBGEN Macro Descriptions 


( ; DLZALPHA Macro 


DLZCKOPT Macro 


DLZPCBPD Macro 


PCB Macro 


PSBGEN Macro — 





SENFLD Macro 


_SENSEG Macro 


VIRFLD Macro 





A description of the DLZALPHA macro appears in Appendix B. 


| DLZCKOPT 





This macro is called by the PCB macro or SENSEG macro to validate the 
PROCOPT operand. The macro generates either the PCB or the SENSEG 
‘PROCOPT OPERAND IS INVALID’ error message. Global symbol PO or SPO 
is set to contain the processing option. 

The operands are: 


OPT _ specifies the PROCOPT operand as entered on the PCB or SENSEG 
statement 


M is PCB or SENSEG message number 


This is an inner macro called by the PSBGEN macro. It generates the PL/I dope 
vector table if LANG=PL/1 is specified in the PSBGEN statement. 


This is an external macro used to define a DB PCB. 


This is an external macro used to terminate PSB specifications, and, if no errors 
have been encountered, to cause the generation of the PSB control blocks. 


This is an external macro used to specify sensitive fields within a sensitive segment. 
This is an external macro used to specify sensitive segments in a data base PCB. 


This is an external macro used to specify fields that exist in the user’s view of a © 
sensitive segment, but not in the physical view. 
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PSB Generation Control Block Output - PSBGEN 











1. PSB - Prefix 
Hex Dec Length Description 
0 0 4 Address of SEGTAB 
4 4 4 Address of SORTAB 
8 8 4 Address of DBREFTAB 
C 12 4 Reserved | 
10 16 4 _ PST address (prefix size) 
14 20 12 Reserved ; 
ee 20 32 1 __.____..Reserved a a ee 
21 33 1 PSB code 
22 34 2 PSB prefix size 
24 36 2 Reserved 
—-26 38 2 Offset to first DB PCB address 
28 40 Var Address of PCB(s) (one 4-byte address for each PCB) = 
2. DBPCB | oe, 
PL/I dope vectors precede PCB if LANG=PL/I 
Hex Dec Length Description 
0 0 8 Data base name 
8 8 1 Reserved 
9 9 1 Flags 


04 - 1,0,R,E, or A PROCOPT specified 
02 - Go PROCOPT for PCB 
01 - All segment processing options are either E or GO for 








7 PCB 

A 10 2 Status code 

C 12 4 Processing options 

10 16 4 JCB address 

14 20 8 Segment name feedback 

1C 28 1 Position 

1D 29 3 Key feedback length 

20 32 2 Number of sensitive segments 

22 34 2 Offset to first SENSEG | _ 
24 36 Var Key feedback area ; | 
3. SEGTAB Entry 

Hex Dec Length Description 

0 0 8 Segment name 
8 8 4 Processing options 

C 12 1 Flag 

80 Last table entry 
40 Field Level sensitivity for segment 

D 13 3 Offset to PCB for secondary processing sequence entry 
D 13 3 PCB address 

10 16 2 Offset to parent segment 

12 2 Offset to FSB list 
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4. DBREFTAB Entry 
Hex Dec Length 


0 0 12 
C 12 4 
D 13 3 
5. -FLS Table 


Hex Dec Length 


0 0 4 
4 4 4 
8 8 4 
C 12 4 
10 16 4 
14 20 4 


6. FSB List Entry 
Hex Dec Length 


0 0 1 


1 I 3 


Description 


Data base name 

Flag byte 

40 - Secondary processing sequence 

Offset to PCB for secondary processing sequence entry 


Description 


FSB list address 

FSB table address 

Field exit routine table address 
Field exit routine table length 
Initial value table address 
Initial value table length 


Description 


Number of FSBs for segment 
Address of first FSB for segment 
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This section describes the executable processing macros that standardize some 
processing routines and DSECTS and lists the macros that provide the DSECTs. 


This macro is used to search the core image libraries to determine if a specified load 


module is present. Optionally, if the phase is present, the length of it is calculated 
for the caller. The DOS/VS LOAD macro (TXT=NO) is used to obtain the | 
directory entry information. 





Operands" 








The descriptions and valid parameters for the two keyword operands are as 


-— follows: 


| Exit Conditions 


DLZBLKLD 


e PHASE 
The name of the phase in the core image library. 


=(reg) The register specified in parenthesis must point to the 8-byte name 
(padded with blanks if necessary). 


=‘name’ The actual phase name may be specified enclosed in single quotes. 


= label This is the label of an 8-byte field containing the phase name with 
any necessary blanks. 


Register 1 is the default which must be loaded with the address of the name. 
« LENGTH 
Specified if the caller desires the actual length of the load module to be 
calculated by this macro. | 
=(reg) The register specified in parenthesis will contain the length in 
binary of the load module as indicated in the directory entry. 
Register 15 is invalid. 


= label This is the label of a fullword in the calling program which will 
contain the length of the found phase on exit. 


If LENGTH is omitted, no length will be calculated. 


R15=0 The phase was found and the length, if requested, has been returned. 
R15 =4 ~~ The phase was not found. 


Registers 0 and 1 are destroyed unless specified for the length register. All other 
registers are unchanged. 


This macro is used by some DOS/VS DL/ utility programs to request the 
initialization module to load all control blocks needed to process a specified utility 
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| PSB. A utility PSB is built by the application control block creation and 
( maintenance utility for every user DBD except a primary HIDAM index, logical, or 
| HSAM. 


The utilities which use this special function have ‘ULU’ in the first three bytes of 
the parameter card. When batch initialization determines (by utility name - either 
DLZURPRO, DLZURGSO, or DLZURGPO) that the DLZBLKLD macro will be 
used, it does not load any control blocks. The action modules and PST and SCD 
are loaded, however. When the utility first receives control, register 1 contains the 
address of the PST. 


Operand 


When the utility reaches the point where blocks are needed, the DLZBLKLD 
macro is executed: 


[ (reg) ] 
DLZBLKLD DMB= [label] 


( J The DMB operand indicates the address of the 8-byte DMB name for which blocks 
a are required. Either the register number (reg) or the label of the field may be 
specified to indicate the address. If this operand is omitted, register 1 is assumed to 
contain the address of the DMB name. 


The expansion replaces the ending ‘D’ of the DMB name with a ‘U’. A CALL is 
made to ASMTDLI with the parameter list as follows: 


DC A(FUNC) Address of function 
a DS CL8 The name of the eerie PSB . 
( FUNC DC C'BLDB' Function 
Exit Conditions 


After execution of this DLZBLKLD macro, register 15 contains a return code: 


R15 =0 _ The blocks were loaded successfully. Register 1 contains the address 
of the list of PCB addresses. 


R15 #0 The blocks were not loaded successfully. Register 1 contains the 
address of the name of the block which could not be loaded. 





Any previously loaded blocks have been overloaded and new buffer pools have 
been allocated. 


When the utility program returns to the language interface at end-of-job, a return 
code is expected in register 15. If register 15 is 0, normal unload processing will 
occur. If register 15 is non-zero, no UNLD call will be made. This return is used 
when no blocks have been successfully loaded. 


DLZCAT 


This macro is used to provide the module CATALR statement. It is updated for 
each release with the current version/release number. By having all modules use 
DLZCAT, it ensures that the CATALR statement will always contain the latest 
version/release number. | 
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The DLZDVCE macro is available for the utilities to: 


Determine whether a logical unit is assigned or not. 


Determine if it is assigned to disk or tape. 


Modify the corresponding DTF. 


The format of the macro is as follows: 














[ .DISKDTF={dtfnamel | (r)}] 

[ MODIFY={NO | YES}] 

[ ,.TAPEDTF={dtfname?2 | (r)}] 

[ FNAME= $filename | (r)}] 

[,RECFM={FIXUNB | VARUNB | UNDEF | FIXBLK | ee 
[SD EVADDR={SYSnnn | (r)}] 

[,.DTFADDR={fieldname | (r)}] 

[ LNAME=listname] 

[ EOXTNT=routinename] 

[.REWIND={optionaddr | (r)}] 


The operands have the following meaning: 


MF _ specifies the type of code to be generated by this expansion. This 
allows for multiple invocations of the function without generating 
multiple copies of the code itself. 


E 


listhame 
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generates the mainline code and, unless ‘listname’ is 
specified, a parameter list. 


Note: Only one execute form of the macro is allowed for 
one single assembly. One, however, is required. If 
encountered more than once, it will be reset to R for all 
macros but the first one. 


The entry point of the mainline routine is always 
DLZDTENT. This will be used by all calls generated by 
R type macros. 


A series of instructions to invoke the main routine, and, 
unless ‘listname’ is also specified, a parameter list will be 
generated. DLZDTENT is used as branch address to the 
main routine. 


specifies a parameter list to be used with this execution or 
invocation. The list must be defined in the program with 
an MF=L macro or using the LNAME operand in an 


_ MF=E or MF=R macro. Listname is only valid with E 


or R. If listname is specified, any other operands 
specified will permanently override the corresponding 
parameters in the list. Not specifying an operand, 
however, will not clear the corresponding field in the list. 
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DISKDTF 


TAPEDTF 


MODIFY | 


Register notation may be used, in which case the register 
must contain the address of the list. 


iB Only a parameter list but no code will be generated. 
Either the label field or the LNAME parameter (or both) 
can be used to assign a name to the list which can be 
referred to by any E of R form. 


Register notation in the operands of an L form macro is 
not allowed, except for the DTFADDR operand. 


C causes a check to be performed on all parameter lists 
generated during this assembly. All references to a single 
list are totaled and the presence of all required operands 
is checked. An error summary is printed. This form of 
the macro should be used as the last occurrence of 
DLZDVCE in any single assembly. 


Note that passing this check error-free does not 
necessarily guarantee error-free execution, since the 
check cannot foresee the sequence in which the various 
DLZDVCE invocations are executed. 


If the MF operand is omitted or invalid, it will default to E in the first 
macro encountered, and R in all other occurrences. 


specifies the name of the disk DTF to be modified if the logical unit is 
assigned to a disk device. If register notation is used, the register must 
contain the address of the DTF. | : 


Specifying DISKDTF=0 or a register containing zero will nullify the 
parameter. 


If this operand is not present at execution time (after any overriding), 
the routine will consider assignment to a disk device as invalid. 


specifies the name of the tape DTF to be modified if the logical unit 
has been assigned to a tape device. If register notation is used, the 
register must contain the address of the DTF. 


Specifying TAPEDTF=0 or a register containing zero will nullify the © 
parameter. — 


If this operand is not present at execution time (after any overriding), 
the routine will consider an assignment to tape as invalid. 


If MF=E or R without listname was specified, either DISKDTF or 
TAPEDTF or both must be specified. 


specifies whether or not the selected DTF is to be modified 

accordingly or not. MODIFY=YES is the default. If MODIFY=NO 
was specified, and a,valid device type was found, register 15 will have 
a negative return code, indicating that no modification has been done. 
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specifies the filename to be moved into the appropriate DTF. If not 
present at execution time, the DTF field is not changed. For register 
notation, the register must point to a seven-byte field containing the 
file name. 


Specifying a register pointing to a hex zero string will nullify the 
parameter. 


specifies the record format of the file. One of the values shown must 
be specified. Omission or invalid specification defaults to VARBLK. 


-DEVADDR specifies the logical unit number to be tested. It must be in the form 











DLZER 


Operands 


case the register must contain the unit number as a binary number in 
the same range. 


This parameter is required if MF=E or R without listname was 
specified. 


This macro is used in module DLZLBLM0O to specify a message. Code is also 
generated to support selection by message id. 


DLZER 


ID 


TEXT 


LAST 


ID=nnn, TEXT=text[,LAST=NO ] 
[ YES | 


= one to three digit message number (“NNN’ in ‘DLZNNNI’). 


= message text. Text is a string of parameters enclosed in left 
and right parentheses. Each parameter is either a character 
string enclosed in quotes; or a set of two values, the first 
indicating a length to be reserved for a field to be dynamically 
inserted, and the second the register that will contain the 
address of the field to be inserted (not register R1 or R15). 


(The message number is generated by the macro and need not 
be included in the text.) | 


TEXT=(‘THIS IS ’,3,R5,, AN EXAMPLE ’,8,R4) 
_=s‘YES’ indicates that no further messages exist. This is a 


special message. The contents of the specified register will be 
converted to BCD and stored in the field for each insert field. 


This macro also generates the code to select and format a message. Preceding the 
first call of DLZER, code must be supplied to establish addressability and equates 
must be supplied for ‘R1’ and ‘R14’. 


INPUT: _ 


7-48 DL/I DOS/VS Logic Manual, Volume1 


‘R1’ should contain the message code in binary format. ‘R14’ must 
contain the address of the routine to process a message once it has 
been located and formatted. 


SYSnnn, where nnn is 000 to 243, or in register notation, in which ~~~ 
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DLZDLIST 


DLZID 


Operands 


DLZIDUMP 


OUTPUT: ‘R1’ will contain a pointer to a two byte field containing the length 
of the message. The message directly follows this two byte field. 
The message is formatted as: 


ODLZNNNI 
TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT 


This macro is used to build the parameter list for the IPCS Dump Hooks. This 
parameter list is required by the DLZIDUMP macro. 


MOD=mod-name 


,VR=version-number 
,PTF=ptf-number 





This macro is used to provide module identification for all DL/I modules. It sets 
the global, sDLZMOD, which contains the module name, and the global, 
&DLZVR, which contains the version, release, and PTF number. These globals 
can then be used by other macros or referenced by the module itself. 


In addition to the constants generated to include the version/release level of when 
the module was last changed as entered by the caller, another set of constants is 
automatically included for the current version/release number of DL/I. This 
macro contains a Base Code Indicator which identifies who last assembled or 


updated the module. 
label 1-8 character label (mod-name) 
mod-name Name of module, If omitted, the present CSECT name is used. 


This name appears in an 8-byte character constant. 


- version-number 1-3 digit version/release number. If omitted, this field is set to 


zeros. Zeros are concatenated to the number specified to 
insure three digits. This field is divided into three 1-byte 
character constants. | 


ptf-number | 1-digit number of the latest PTF applied. If omitted, this — | 
appears as a 1-byte character constant. 


This macro is used to call the IDUMP facility to provide a dump in the format 


~ acceptable for analysis by IPCS Service Routines. If the conditions for the dump 


are satisfied, the IDUMP macro is executed. If IDUMP has not been activated, the 


~ alternate dump path is taken. 
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DLZIPOST 


This macro is used by DL/I to post ECBs in an online environment. 


There are no operands. Register 2 must contain the address of the ECB to be 
posted. Bit O of byte 2 is set on. 


- DLZIWAIT 


This macro is used by DL/I to communicate with an IWAIT routine (DLZIWAIT) 
to wait until an ECB is unposted. 





the address of the ECB that is to be waited for. The caller must have provided a 
USING SCD,15. Registers 14 and 15 are used to branch to the DLZIWAIT 
routine. 


DLZTRCAL 


This macro is used by action modules to invoke the tracing facility. Refer to DL/I 
DOS/VS Diagnostic Guide for a description of this macro. 


DLZREL 


This macro defines a macro variable, DLZVER, and sets it to indicate the current 
version of DL/I. © 


DLZTRPRM 


This macro is called by the DLZTRACE macro to parse parameter lists. It is 
similar to the DLZXPARM macro of DBDGEN (see “cDLZXPARM Macro” in 
Chapter 6). In addition to the interface described for DLZXPARM, the length of 
each parameter list member is passed to the caller in the GBLA fields $PLEN(25). 


DLZMPCPT 


The master partition controller (MCP) partition table is used to pass control 
information when processing batch partition application programs under MPS 
(Multiple Partition Support). The MPC partition table resides in the transaction 
work area. 


DLZTWAB 


This macro provides the mapping for the BPC batch partition control information 
for the DL/I task termination routine under MPS (Multiple Partition Support). 
This information resides in the BPC’s task transaction work area. 


DLZXTAB © 


This macro provides the mapping for the XECBTAB macro DEFINE, DELETE, 
and CHECK options under MPS (Multiple Partition Support). 


DLZXCB1 


This macro maps the DLZXCBn1 and the data that follows it. It is used to check 
data under MPS (Multiple Partition Support). 
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-~There are no operands. The PST must be addressable and register 2 must contain __ 
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| DLZTSQOE 


é This macro maps the entries in the CICS/VS temporary storage queue used by 
a. MPS Restart which contain combined checkpoint IDs for MPS batch jobs. 


Macros Used to Create DSECTS for DL/I System Control Blocks 


The following macros are used to generate DSECTS for the DL/I control blocks: 


DLZBFFR 
DLZBFPL 
DLZDDIR 
DLZIDLI 
DLZPDIR 
DLZPPST 
DLZPSIL 
DLZPST 
DLZSCD. 


( Macros used only by utilities to generate DSECTs: 


DLZCKPT 
DLZDTF 
DLZIDBD — 
DLZRECO 
DLZUCHDR 
DLZUCOLD 
DLZUCREC 
( ‘ DLZUCUMC 
= DLZUDHDR 
DLZURGUF 
DLZURHDR 
DLZUSTAT 
-DLZTRENT. 


Miscellaneous macros: 


Be DLZDLIST Creates parameter list for DLZIDUMP macro 
( ’ DLZDLP Log record DSECTs and declarations 
be DLZHDSO _—~ Work area for DLZDHDSO 
DLZIDUMP __IPCS dump hook macro 
DLZQUATE Register equates 
DLZSBIF Work area for DLZDBHO0O 
DLZUMSG _ Messages for utilities 
DLZWA Work area used by DLZDLDOO 
DLZXMTWA Work area used by DLZDXMTO. 


DL/I Queuing Facility Macros 


Four macros are available to request processing of a specific function by the 
queuing facility module (DLZQUEF0). The functions that can be requested and 
the macros that can be used are: 
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Function Requested Macro Used 
Enqueue DLZENQ 
Verify ~ DLZVER 
Dequeue DLZDEQ 
Purge DLZPUR 


The functions are described in Section 3 of this manual. The format of each macro 
and the description of the operands is as follows: 











Formats 
DLZENQ  [PST=r 1] [, LEV={RO| UPD | EXC}] [, ID=r2] [, FLAG=x ‘hh! ] 
— DLZVER [psT=r1 i , LEV= {RO|UPD|EXC}] [,ID=r2] [, FLAG=x'hh' ] 
DLZDEQ_ [PSsT=r1] [, LEV={RO| UPD| EXC} ] [, ID=r2] [, FLAG=x'hh'] 
DLZPUR _[PST=ri] [, FLAG=x'hh'] | 
fo - * 
Operands ae) 
PST=r1 specifies the symbolic (or absolute) name of a register 
containing the address of the PST. It this operand is | 
omitted, register one is assumed. 
LEV={RO | UPD | EXC} specifies the level involved; RO = read only, UPD = 
update, and EXC = exclusive. If omitted, it is assumed 
the PSTQLEV field in the PST is set with the proper — 
code. 
ID=r2 specifies the symbolic (or absolute) name of a register 
containing the address of the seven byte field containing 
the resource ID. If omitted, it is assumed the address is 
stored in the PSTWRK2 field in the PST. 
FLAG=x‘hh’ specifies the byte value that is ‘OR’ed into the return 
code for those tasks currently waiting for the resource. 
DL/I Documentation Aid Macros Kos 
DLZDLBP 
| Creates (PREP) the DL/I PSB Documentation Aid access module. 
DLZDLBD 
Creates (PREP) the DL/I DBD Documentation Aid access module. 
| DLZDATAB | 


Acquires public DBSPACE name DLIDBDDB and creates the following DL/I DA 
SQL/DS tables for storing the Data Base Description (DBD) data: 


DBDBASICDATA 
DBDACCESSDATA 
DBDSEGMENTDATA 
DBDLCHILDDATA 
DBDFIELDDATA 
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DLZDANDX 
DLZDARTN 


DLZEXDF 


It also acquires public DBSPACE name DLIPSBDB and creates the following 
DL/I DA SQL/DS tables for storing the Program Specification Blocks (PSB) data: 


PSBBASICDATA 
PSBPCBDATA 
PSBSEGMENTDATA 
PSBFIELDDATA 


Creates the DL/I Documentation Aid SQL/DS table indexes. 
Dataloads the DL/I Documentation Aid ISQL Routines in the Routine table. 


Creates (PREP) the Extract Defines access module. 
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resource request descriptor (RRD) 5-158 
retrieve (see DLZDLROO) 
retrieve, description 3-37 
RGT - range table 5-150 
RIB - remote interface block 5-152 
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